home *** CD-ROM | disk | FTP | other *** search
Wrap
Text File | 1991-03-06 | 670.5 KB | 35,832 lines | [ TEXT/MPS ]
æKY Help PInterfacesHelp æKL ADSP.p Aliases.p AppleEvents.p AppleTalk.p Balloons.p Controls.p Desk.p DeskBus.p Devices.p Dialogs.p DiskInit.p Disks.p Editions.p EPPC.p Errors.p Events.p Files.p Folders.p Fonts.p GestaltEqu.p Graf3D.p Lists.p Memory.p Menus.p MIDI.p Notification.p OSEvents.p OSUtils.p Packages.p Palettes.p Power.p PPCToolbox.p Printing.p Processes.p QDOffscreen.p Quickdraw.p Resources.p Retrace.p ROMDefs.p Scrap.p Script.p SCSI.p SegLoad.p Serial.p ShutDown.p Slots.p Sound.p StandardFile.p Start.p SysEqu.p TextEdit.p Timer.p ToolUtils.p Types.p Video.p Windows.p æKY ADSP.p æKL attnBufSize dspAttention dspCLDeny dspCLInit dspCLListen dspClose dspCLRemove dspInit dspNewCID dspOpen dspOptions DSPParamBlock DSPPBPtr dspRead dspRemove dspReset dspStatus dspWrite eAttention eClosed eFwdReset errAborted errAttention errDSPQueueSize errFwdReset errOpenDenied errOpening errRefNum errState eTearDown minDSPQueueSize ocAccept ocEstablish ocPassive ocRequest sClosed sClosing sListening sOpen sOpening sPassive TPCCB TRCCB æKY errRefNum æT constant æFc ADSP.p æD errRefNum = -1280; { bad connection refNum } æKY errAborted æT constant æFc ADSP.p æD errAborted = -1279; { control call was aborted } æKY errState æT constant æFc ADSP.p æD errState = -1278; { bad connection state for this operation } æKY errOpening æT constant æFc ADSP.p æD errOpening = -1277; { open connection request failed } æKY errAttention æT constant æFc ADSP.p æD errAttention = -1276; { attention message too long } æKY errFwdReset æT constant æFc ADSP.p æD errFwdReset = -1275; { read terminated by forward reset } æKY errDSPQueueSize æT constant æFc ADSP.p æD errDSPQueueSize = -1274; { DSP Read/Write Queue Too small } æKY errOpenDenied æT constant æFc ADSP.p æD errOpenDenied = -1273; { open connection request was denied } æKY dspInit æT constant æFc ADSP.p æD dspInit = 255; { create a new connection end } æKY dspRemove æT constant æFc ADSP.p æD dspRemove = 254; { remove a connection end } æKY dspOpen æT constant æFc ADSP.p æD dspOpen = 253; { open a connection } æKY dspClose æT constant æFc ADSP.p æD dspClose = 252; { close a connection } æKY dspCLInit æT constant æFc ADSP.p æD dspCLInit = 251; { create a connection listener } æKY dspCLRemove æT constant æFc ADSP.p æD dspCLRemove = 250; { remove a connection listener } æKY dspCLListen æT constant æFc ADSP.p æD dspCLListen = 249; { post a listener request } æKY dspCLDeny æT constant æFc ADSP.p æD dspCLDeny = 248; { deny an open connection request } æKY dspStatus æT constant æFc ADSP.p æD dspStatus = 247; { get status of connection end } æKY dspRead æT constant æFc ADSP.p æD dspRead = 246; { read data from the connection } æKY dspWrite æT constant æFc ADSP.p æD dspWrite = 245; { write data on the connection } æKY dspAttention æT constant æFc ADSP.p æD dspAttention = 244; { send an attention message } æKY dspOptions æT constant æFc ADSP.p æD dspOptions = 243; { set connection end options } æKY dspReset æT constant æFc ADSP.p æD dspReset = 242; { forward reset the connection } æKY dspNewCID æT constant æFc ADSP.p æD dspNewCID = 241; { generate a cid for a connection end } æKY ocRequest æT constant æFc ADSP.p æD ocRequest = 1; { request a connection with remote } æKY ocPassive æT constant æFc ADSP.p æD ocPassive = 2; { wait for a connection request from remote } æKY ocAccept æT constant æFc ADSP.p æD ocAccept = 3; { accept request as delivered by listener } æKY ocEstablish æT constant æFc ADSP.p æD ocEstablish = 4; { consider connection to be open } æKY sListening æT constant æFc ADSP.p æD sListening = 1; { for connection listeners } æKY sPassive æT constant æFc ADSP.p æD sPassive = 2; { waiting for a connection request from remote } æKY sOpening æT constant æFc ADSP.p æD sOpening = 3; { requesting a connection with remote } æKY sOpen æT constant æFc ADSP.p æD sOpen = 4; { connection is open } æKY sClosing æT constant æFc ADSP.p æD sClosing = 5; { connection is being torn down } æKY sClosed æT constant æFc ADSP.p æD sClosed = 6; { connection end state is closed } æKY eClosed æT constant æFc ADSP.p æD eClosed = $80; { received connection closed advice } æKY eTearDown æT constant æFc ADSP.p æD eTearDown = $40; { connection closed due to broken connection } æKY eAttention æT constant æFc ADSP.p æD eAttention = $20; { received attention message } æKY eFwdReset æT constant æFc ADSP.p æD eFwdReset = $10; { received forward reset advice } æKY attnBufSize æT constant æFc ADSP.p æD attnBufSize = 570; { size of client attention buffer } æKY minDSPQueueSize æT constant æFc ADSP.p æD minDSPQueueSize = 100; { Minimum size of receive or send Queue } æKY TRCCB æT struct æFc ADSP.p æD TPCCB = ^TRCCB; TRCCB = PACKED RECORD ccbLink: TPCCB; { link to next ccb } refNum: INTEGER; { user reference number } state: INTEGER; { state of the connection end } userFlags: Byte; { flags for unsolicited connection events } localSocket: Byte; { socket number of this connection end } remoteAddress: AddrBlock; { internet address of remote end } attnCode: INTEGER; { attention code received } attnSize: INTEGER; { size of received attention data } attnPtr: Ptr; { ptr to received attention data } reserved: PACKED ARRAY [1..220] OF Byte; { adsp internal use } END; æKY DSPParamBlock æT struct æFc ADSP.p æD DSPPBPtr = ^DSPParamBlock; DSPParamBlock = PACKED RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; ioCRefNum: INTEGER; { adsp driver refNum } csCode: INTEGER; { adsp driver control code } qStatus: LONGINT; { adsp internal use } ccbRefNum: INTEGER; { refnum of ccb } CASE INTEGER OF dspInit,dspCLInit: (ccbPtr: TPCCB; {pointer to connection control block} userRoutine: ProcPtr; {client routine to call on event} sendQSize: INTEGER; {size of send queue (0..64K bytes)} sendQueue: Ptr; {client passed send queue buffer} recvQSize: INTEGER; {size of receive queue (0..64K bytes)} recvQueue: Ptr; {client passed receive queue buffer} attnPtr: Ptr; {client passed receive attention buffer} localSocket: Byte; {local socket number} filler1: Byte; {filler for proper byte alignment} ); dspOpen,dspCLListen,dspCLDeny: (localCID: INTEGER; {local connection id} remoteCID: INTEGER; {remote connection id} remoteAddress: AddrBlock; {address of remote end} filterAddress: AddrBlock; {address filter} sendSeq: LONGINT; {local send sequence number} sendWindow: INTEGER; {send window size} recvSeq: LONGINT; {receive sequence number} attnSendSeq: LONGINT; {attention send sequence number} attnRecvSeq: LONGINT; {attention receive sequence number} ocMode: Byte; {open connection mode} ocInterval: Byte; {open connection request retry interval} ocMaximum: Byte; {open connection request retry maximum} filler2: Byte; {filler for proper byte alignment} ); dspClose,dspRemove: (abort: Byte; {abort connection immediately if non-zero} filler3: Byte; {filler for proper byte alignment} ); dspStatus: (statusCCB: TPCCB; {pointer to ccb} sendQPending: INTEGER; {pending bytes in send queue} sendQFree: INTEGER; {available buffer space in send queue} recvQPending: INTEGER; {pending bytes in receive queue} recvQFree: INTEGER; {available buffer space in receive queue} ); dspRead,dspWrite: (reqCount: INTEGER; {requested number of bytes} actCount: INTEGER; {actual number of bytes} dataPtr: Ptr; {pointer to data buffer} eom: Byte; {indicates logical end of message} flush: Byte; {send data now} ); dspAttention: (attnCode: INTEGER; {client attention code} attnSize: INTEGER; {size of attention data} attnData: Ptr; {pointer to attention data} attnInterval: Byte; {retransmit timer in 10-tick intervals} filler4: Byte; {filler for proper byte alignment} ); dspOptions: (sendBlocking: INTEGER; {quantum for data packets} sendTimer: Byte; {send timer in 10-tick intervals} rtmtTimer: Byte; {retransmit timer in 10-tick intervals} badSeqMax: Byte; {threshold for sending retransmit advice} useCheckSum: Byte; {use ddp packet checksum} ); dspNewCID: (newCID: INTEGER; {new connection id returned} ); END; æKY Aliases.p æKL GetAliasInfo MatchAlias NewAlias NewAliasMinimal NewAliasMinimalFromFullPath ResolveAlias ResolveAliasFile UpdateAlias AliasFilterProcPtr AliasHandle AliasInfoType AliasPtr AliasRecord asiAliasName asiParentName asiServerName asiVolumeName asiZoneName kARMmountVol kARMmultVols kARMnoUI kARMsearch kARMsearchMore kARMsearchRelFirst rAliasType æKY rAliasType æT constant æFc Aliases.p æD rAliasType = 'alis'; { Aliases are stored as resources of this type } æKY kARMmountVol æT constant æFc Aliases.p æD kARMmountVol = $00000001; { mount the volume automatically } æKY kARMnoUI æT constant æFc Aliases.p æD kARMnoUI = $00000002; { no user interface allowed during resolution } æKY kARMmultVols æT constant æFc Aliases.p æD kARMmultVols = $00000008; { search on multiple volumes } æKY kARMsearch æT constant æFc Aliases.p æD kARMsearch = $00000100; { search quickly } æKY kARMsearchMore æT constant æFc Aliases.p æD kARMsearchMore = $00000200; { search further } æKY kARMsearchRelFirst æT constant æFc Aliases.p æD kARMsearchRelFirst = $00000400; { search target on a relative path first } æKY asiZoneName æT constant æFc Aliases.p æD asiZoneName = -3; { get zone name } æKY asiServerName æT constant æFc Aliases.p æD asiServerName = -2; { get server name } æKY asiVolumeName æT constant æFc Aliases.p æD asiVolumeName = -1; { get volume name } æKY asiAliasName æT constant æFc Aliases.p æD asiAliasName = 0; { get aliased file/folder/volume name } æKY asiParentName æT constant æFc Aliases.p æD asiParentName = 1; { get parent folder name } æKY AliasRecord æT struct æFc Aliases.p æD AliasPtr = ^AliasRecord; AliasHandle = ^AliasPtr; AliasRecord = RECORD userType: OSType; { appl stored type like creator type } aliasSize: INTEGER; { alias record size in bytes, for appl usage } END; æKY AliasInfoType æT typedef æFc Aliases.p æD AliasInfoType = INTEGER; { alias record information type } æKY AliasFilterProcPtr æT typedef æFc Aliases.p æD AliasFilterProcPtr = ProcPtr; æKY NewAlias æT Function æFc Aliases.p æD FUNCTION NewAlias(fromFile: FSSpecPtr; target: FSSpec; VAR alias: AliasHandle): OSErr; INLINE $7002,$A823; æKY NewAliasMinimal æT Function æFc Aliases.p æD FUNCTION NewAliasMinimal(target: FSSpec; VAR alias: AliasHandle): OSErr; INLINE $7008,$A823; æKY NewAliasMinimalFromFullPath æT Function æFc Aliases.p æD FUNCTION NewAliasMinimalFromFullPath(fullPathLength: INTEGER; fullpath: Ptr; zoneName: Str32; serverName: Str31; VAR alias: AliasHandle): OSErr; INLINE $7009,$A823; æKY ResolveAlias æT Function æFc Aliases.p æD FUNCTION ResolveAlias(fromFile: FSSpecPtr; alias: AliasHandle; VAR target: FSSpec; VAR wasChanged: BOOLEAN): OSErr; INLINE $7003,$A823; æKY GetAliasInfo æT Function æFc Aliases.p æD FUNCTION GetAliasInfo(alias: AliasHandle; index: AliasInfoType; VAR theString: Str63): OSErr; INLINE $7007,$A823; æKY ResolveAliasFile æT Function æFc Aliases.p æD FUNCTION ResolveAliasFile(VAR theSpec: FSSpec; resolveAliasChains: BOOLEAN; VAR targetIsFolder: BOOLEAN; VAR wasAliased: BOOLEAN): OSErr; INLINE $700C,$A823; æKY MatchAlias æT Function æFc Aliases.p æD FUNCTION MatchAlias(fromFile: FSSpecPtr; rulesMask: LONGINT; alias: AliasHandle; VAR aliasCount: INTEGER; aliasList: FSSpecArrayPtr; VAR needsUpdate: BOOLEAN; aliasFilter: AliasFilterProcPtr; yourDataPtr: UNIV Ptr): OSErr; INLINE $7005,$A823; æKY UpdateAlias æT Function æFc Aliases.p æD FUNCTION UpdateAlias(fromFile: FSSpecPtr; target: FSSpec; alias: AliasHandle; VAR wasChanged: BOOLEAN): OSErr; INLINE $7006,$A823; æKY AppleEvents.p æKL AECoerceDesc AECoercePtr AECountItems AECreateAppleEvent AECreateDesc AECreateList AEDeleteItem AEDeleteKeyDesc AEDeleteParam AEDisposeDesc AEDuplicateDesc AEGetArray AEGetAttributeDesc AEGetAttributePtr AEGetCoercionHandler AEGetEventHandler AEGetInteractionAllowed AEGetKeyDesc AEGetKeyPtr AEGetNthDesc AEGetNthPtr AEGetParamDesc AEGetParamPtr AEGetSpecialHandler AEGetTheCurrentEvent AEInstallCoercionHandler AEInstallEventHandler AEInstallSpecialHandler AEInteractWithUser AEProcessAppleEvent AEPutArray AEPutAttributeDesc AEPutAttributePtr AEPutDesc AEPutKeyDesc AEPutKeyPtr AEPutParamDesc AEPutParamPtr AEPutPtr AERemoveCoercionHandler AERemoveEventHandler AERemoveSpecialHandler AEResetTimer AEResumeTheCurrentEvent AESend AESetInteractionAllowed AESetTheCurrentEvent AESizeOfAttribute AESizeOfKeyDesc AESizeOfNthItem AESizeOfParam AESuspendTheCurrentEvent AEAddressDesc AEArrayData AEArrayDataPointer AEArrayType AEDesc AEDescList AEEventClass AEEventID AEEventSource AEInteractAllowed AEKeyDesc AEKeyword AERecord AESendMode AESendPriority AppleEvent DescType errAEBadListItem errAECoercionFail errAECorruptData errAEDescNotFound errAEEventNotHandled errAEHandlerNotFound errAEIllegalIndex errAENewerVersion errAENotAEDesc errAENotAppleEvent errAENotASpecialFunction errAENoUserInteraction errAEParamMissed errAEReplyNotArrived errAEReplyNotValid errAETimeout errAEUnknownAddressType errAEUnknownSendMode errAEWaitCanceled errAEWrongDataType EventFilterProcPtr EventHandlerProcPtr IdleProcPtr kAEAlwaysInteract kAEAnswer kAECanInteract kAECanSwitchLayer kAEDataArray kAEDefaultTimeout kAEDescArray kAEDirectCall kAEDontReconnect kAEHandleArray kAEHighPriority kAEInteractWithAll kAEInteractWithLocal kAEInteractWithSelf kAEKeyDescArray kAELocalProcess kAENeverInteract kAENoDispatch kAENoReply kAENormalPriority kAEOpenApplication kAEOpenDocuments kAEPackedArray kAEPrintDocuments kAEQueueReply kAEQuitApplication kAERemoteProcess kAESameProcess kAEUnknownSource kAEUseStandardDispatch kAEWaitReply kAEWantReceipt kAnyTransactionID kAutoGenerateReturnID kCoreEventClass keyAddressAttr keyDirectObject keyErrorNumber keyErrorString keyEventClassAttr keyEventIDAttr keyEventSourceAttr keyInteractLevelAttr keyMissedKeywordAttr keyOptionalKeywordAttr keyPreDispatch keyReturnIDAttr keySelectProc keyTimeoutAttr keyTransactionIDAttr kNoTimeOut typeAEList typeAERecord typeAlias typeApplSignature typeAppParameters typeBoolean typeChar typeComp typeEnumerated typeExtended typeFalse typeFloat typeFSS typeInteger typeKeyword typeLongFloat typeLongInteger typeMagnitude typeNull typeProcessSerialNumber typeProperty typeSectionH typeSessionID typeShortFloat typeShortInteger typeSMFloat typeSMInt typeTargetID typeTrue typeType typeWildCard æKY typeBoolean æT constant æFc AppleEvents.p æD typeBoolean = 'bool'; æKY typeChar æT constant æFc AppleEvents.p æD typeChar = 'TEXT'; æKY typeSMInt æT constant æFc AppleEvents.p æD typeSMInt = 'shor'; æKY typeInteger æT constant æFc AppleEvents.p æD typeInteger = 'long'; æKY typeSMFloat æT constant æFc AppleEvents.p æD typeSMFloat = 'sing'; æKY typeFloat æT constant æFc AppleEvents.p æD typeFloat = 'doub'; æKY typeLongInteger æT constant æFc AppleEvents.p æD typeLongInteger = 'long'; æKY typeShortInteger æT constant æFc AppleEvents.p æD typeShortInteger = 'shor'; æKY typeLongFloat æT constant æFc AppleEvents.p æD typeLongFloat = 'doub'; æKY typeShortFloat æT constant æFc AppleEvents.p æD typeShortFloat = 'sing'; æKY typeExtended æT constant æFc AppleEvents.p æD typeExtended = 'exte'; æKY typeComp æT constant æFc AppleEvents.p æD typeComp = 'comp'; æKY typeMagnitude æT constant æFc AppleEvents.p æD typeMagnitude = 'magn'; æKY typeAEList æT constant æFc AppleEvents.p æD typeAEList = 'list'; æKY typeAERecord æT constant æFc AppleEvents.p æD typeAERecord = 'reco'; æKY typeTrue æT constant æFc AppleEvents.p æD typeTrue = 'true'; æKY typeFalse æT constant æFc AppleEvents.p æD typeFalse = 'fals'; æKY typeAlias æT constant æFc AppleEvents.p æD typeAlias = 'alis'; æKY typeEnumerated æT constant æFc AppleEvents.p æD typeEnumerated = 'enum'; æKY typeType æT constant æFc AppleEvents.p æD typeType = 'type'; æKY typeAppParameters æT constant æFc AppleEvents.p æD typeAppParameters = 'appa'; æKY typeProperty æT constant æFc AppleEvents.p æD typeProperty = 'prop'; æKY typeFSS æT constant æFc AppleEvents.p æD typeFSS = 'fss '; æKY typeKeyword æT constant æFc AppleEvents.p æD typeKeyword = 'keyw'; æKY typeSectionH æT constant æFc AppleEvents.p æD typeSectionH = 'sect'; æKY typeWildCard æT constant æFc AppleEvents.p æD typeWildCard = '****'; æKY typeApplSignature æT constant æFc AppleEvents.p æD typeApplSignature = 'sign'; æKY typeSessionID æT constant æFc AppleEvents.p æD typeSessionID = 'ssid'; æKY typeTargetID æT constant æFc AppleEvents.p æD typeTargetID = 'targ'; æKY typeProcessSerialNumber æT constant æFc AppleEvents.p æD typeProcessSerialNumber = 'psn '; æKY typeNull æT constant æFc AppleEvents.p æD typeNull = 'null'; {the type of null/nonexistent data} æKY kCoreEventClass æT constant æFc AppleEvents.p æD kCoreEventClass = 'aevt'; æKY kAEOpenApplication æT constant æFc AppleEvents.p æD kAEOpenApplication = 'oapp'; æKY kAEOpenDocuments æT constant æFc AppleEvents.p æD kAEOpenDocuments = 'odoc'; æKY kAEPrintDocuments æT constant æFc AppleEvents.p æD kAEPrintDocuments = 'pdoc'; æKY kAEQuitApplication æT constant æFc AppleEvents.p æD kAEQuitApplication = 'quit'; æKY keyErrorNumber æT constant æFc AppleEvents.p æD keyErrorNumber = 'errn'; æKY keyErrorString æT constant æFc AppleEvents.p æD keyErrorString = 'errs'; æKY kAEAnswer æT constant æFc AppleEvents.p æD kAEAnswer = 'ansr'; æKY keyDirectObject æT constant æFc AppleEvents.p æD keyDirectObject = '----'; æKY keyPreDispatch æT constant æFc AppleEvents.p æD keyPreDispatch = 'phac'; { PreHandler Accessor Call } æKY keySelectProc æT constant æFc AppleEvents.p æD keySelectProc = 'selh'; { More selector Call } æKY keyTransactionIDAttr æT constant æFc AppleEvents.p æD keyTransactionIDAttr = 'tran'; æKY keyReturnIDAttr æT constant æFc AppleEvents.p æD keyReturnIDAttr = 'rtid'; æKY keyEventClassAttr æT constant æFc AppleEvents.p æD keyEventClassAttr = 'evcl'; æKY keyEventIDAttr æT constant æFc AppleEvents.p æD keyEventIDAttr = 'evid'; æKY keyAddressAttr æT constant æFc AppleEvents.p æD keyAddressAttr = 'addr'; æKY keyOptionalKeywordAttr æT constant æFc AppleEvents.p æD keyOptionalKeywordAttr = 'optk'; æKY keyTimeoutAttr æT constant æFc AppleEvents.p æD keyTimeoutAttr = 'timo'; æKY keyInteractLevelAttr æT constant æFc AppleEvents.p æD keyInteractLevelAttr = 'inte'; {this attribute is read only will be set in AESend} æKY keyEventSourceAttr æT constant æFc AppleEvents.p æD keyEventSourceAttr = 'esrc'; { this attribute is read only } æKY keyMissedKeywordAttr æT constant æFc AppleEvents.p æD keyMissedKeywordAttr = 'miss'; { this attribute is read only } æKY kAENoReply æT constant æFc AppleEvents.p æD kAENoReply = $00000001; { Sender doesn't want a reply to event } æKY kAEQueueReply æT constant æFc AppleEvents.p æD kAEQueueReply = $00000002; { Sender wants a reply but won't wait } æKY kAEWaitReply æT constant æFc AppleEvents.p æD kAEWaitReply = $00000003; { Sender wants a reply and will be waiting } æKY kAENeverInteract æT constant æFc AppleEvents.p æD kAENeverInteract = $00000010; { Server should not interact with user } æKY kAECanInteract æT constant æFc AppleEvents.p æD kAECanInteract = $00000020; { Server may try to interact with user } æKY kAEAlwaysInteract æT constant æFc AppleEvents.p æD kAEAlwaysInteract = $00000030; { Server should always interact with user where appropriate } æKY kAECanSwitchLayer æT constant æFc AppleEvents.p æD kAECanSwitchLayer = $00000040; { Interaction may switch layer } æKY kAEDontReconnect æT constant æFc AppleEvents.p æD kAEDontReconnect = $00000080; { don't reconnect if there is a sessClosedErr from PPCToolbox } æKY kAEWantReceipt æT constant æFc AppleEvents.p æD kAEWantReceipt = nReturnReceipt; { Send wants a receipt of message } æKY kAENormalPriority æT constant æFc AppleEvents.p æD kAENormalPriority = $00000000; { Post message at the end of event queue } æKY kAEHighPriority æT constant æFc AppleEvents.p æD kAEHighPriority = nAttnMsg; { Post message at the front of the event queue } æKY kAnyTransactionID æT constant æFc AppleEvents.p æD kAnyTransactionID = 0; { no transaction is in use } æKY kAutoGenerateReturnID æT constant æFc AppleEvents.p æD kAutoGenerateReturnID = -1; { AECreateAppleEvent will generate a session-unique ID } æKY kAEDefaultTimeout æT constant æFc AppleEvents.p æD kAEDefaultTimeout = -1; { timeout value determined by AEM } æKY kNoTimeOut æT constant æFc AppleEvents.p æD kNoTimeOut = -2; { wait until reply comes back, however long it takes } æKY kAENoDispatch æT constant æFc AppleEvents.p æD kAENoDispatch = 0; æKY kAEUseStandardDispatch æT constant æFc AppleEvents.p æD kAEUseStandardDispatch = -1; æKY errAECoercionFail æT constant æFc AppleEvents.p æD errAECoercionFail = -1700; æKY errAEDescNotFound æT constant æFc AppleEvents.p æD errAEDescNotFound = -1701; æKY errAECorruptData æT constant æFc AppleEvents.p æD errAECorruptData = -1702; æKY errAEWrongDataType æT constant æFc AppleEvents.p æD errAEWrongDataType = -1703; æKY errAENotAEDesc æT constant æFc AppleEvents.p æD errAENotAEDesc = -1704; æKY errAEBadListItem æT constant æFc AppleEvents.p æD errAEBadListItem = -1705; { Specified list item does not exist } æKY errAENewerVersion æT constant æFc AppleEvents.p æD errAENewerVersion = -1706; { Need newer version of AppleEvent Manager } æKY errAENotAppleEvent æT constant æFc AppleEvents.p æD errAENotAppleEvent = -1707; { The event is not in AppleEvent format } æKY errAEEventNotHandled æT constant æFc AppleEvents.p æD errAEEventNotHandled = -1708; { The AppleEvent was not handled by any handler } æKY errAEReplyNotValid æT constant æFc AppleEvents.p æD errAEReplyNotValid = -1709; { AEResetTimer was passed an invalid reply parameter } æKY errAEUnknownSendMode æT constant æFc AppleEvents.p æD errAEUnknownSendMode = -1710; { Mode wasn't NoReply, WaitReply, or QueueReply; or Interaction level is unknown } æKY errAEWaitCanceled æT constant æFc AppleEvents.p æD errAEWaitCanceled = -1711; { In AESend, User cancelled out of wait loop for reply or receipt } æKY errAETimeout æT constant æFc AppleEvents.p æD errAETimeout = -1712; { AppleEvent timed out } æKY errAENoUserInteraction æT constant æFc AppleEvents.p æD errAENoUserInteraction = -1713; { no user interaction allowed } æKY errAENotASpecialFunction æT constant æFc AppleEvents.p æD errAENotASpecialFunction = -1714; { there is no special function with this keyword } æKY errAEParamMissed æT constant æFc AppleEvents.p æD errAEParamMissed = -1715; { a required parameter was not accessed } æKY errAEUnknownAddressType æT constant æFc AppleEvents.p æD errAEUnknownAddressType = -1716; { The target address type is not known } æKY errAEHandlerNotFound æT constant æFc AppleEvents.p æD errAEHandlerNotFound = -1717; { No handler in the dispatch tables fits the parameters to AEGetEventHandler or AEGetCoercionHandler } æKY errAEReplyNotArrived æT constant æFc AppleEvents.p æD errAEReplyNotArrived = -1718; { the contents of the reply you are accessing have not arrived yet } æKY errAEIllegalIndex æT constant æFc AppleEvents.p æD errAEIllegalIndex = -1719; { Index is out of range in a put operation } æKY AEKeyword æT typedef æFc AppleEvents.p æD AEKeyword = PACKED ARRAY [1..4] OF CHAR; æKY AEEventClass æT typedef æFc AppleEvents.p æD AEEventClass = PACKED ARRAY [1..4] OF CHAR; æKY AEEventID æT typedef æFc AppleEvents.p æD AEEventID = PACKED ARRAY [1..4] OF CHAR; æKY DescType æT typedef æFc AppleEvents.p æD DescType = ResType; æKY AEDesc æT struct æFc AppleEvents.p æD AEDesc = RECORD descriptorType: DescType; dataHandle: Handle; END; æKY AEAddressDesc æT typedef æFc AppleEvents.p æD AEAddressDesc = AEDesc; { an AEDesc which contains addressing data } æKY AEDescList æT typedef æFc AppleEvents.p æD AEDescList = AEDesc; { a list of AEDesc is a special kind of AEDesc } æKY AERecord æT typedef æFc AppleEvents.p æD AERecord = AEDescList; { AERecord is a list of keyworded AEDesc } æKY AppleEvent æT typedef æFc AppleEvents.p æD AppleEvent = AERecord; { an AERecord that contains an AppleEvent } æKY AESendMode æT typedef æFc AppleEvents.p æD AESendMode = LONGINT; { Type of parameter to AESend } æKY AESendPriority æT typedef æFc AppleEvents.p æD AESendPriority = INTEGER; { Type of priority param of AESend } æKY AEInteractAllowed kAEInteractWithSelf kAEInteractWithLocal kAEInteractWithAll æT enum æFc AppleEvents.p æD AEInteractAllowed = (kAEInteractWithSelf,kAEInteractWithLocal,kAEInteractWithAll); æKY AEEventSource kAEUnknownSource kAEDirectCall kAESameProcess kAELocalProcess kAERemoteProcess æT enum æFc AppleEvents.p æD AEEventSource = (kAEUnknownSource,kAEDirectCall,kAESameProcess,kAELocalProcess, kAERemoteProcess); æKY AEKeyDesc æT struct æFc AppleEvents.p æD AEKeyDesc = RECORD descKey: AEKeyword; descContent: AEDesc; END; æKY AEArrayType kAEDataArray kAEPackedArray kAEHandleArray kAEDescArray kAEKeyDescArray æT enum æFc AppleEvents.p æD AEArrayType = (kAEDataArray,kAEPackedArray,kAEHandleArray,kAEDescArray, kAEKeyDescArray); æKY AEArrayData æT union æFc AppleEvents.p æD AEArrayData = RECORD case AEArrayType OF kAEDataArray: (AEDataArray: Array[0..0] OF Integer); kAEPackedArray: (AEPackedArray: Packed Array[0..0] OF Char); kAEHandleArray: (AEHandleArray: Array[0..0] OF Handle); kAEDescArray: (AEDescArray: Array[0..0] OF AEDesc); kAEKeyDescArray: (AEKeyDescArray: Array[0..0] OF AEKeyDesc); END; AEArrayDataPointer = ^AEArrayData; æKY EventHandlerProcPtr æT typedef æFc AppleEvents.p æD EventHandlerProcPtr = ProcPtr; æKY IdleProcPtr æT typedef æFc AppleEvents.p æD IdleProcPtr = ProcPtr; æKY EventFilterProcPtr æT typedef æFc AppleEvents.p æD EventFilterProcPtr = ProcPtr; æKY AECreateDesc æT Function æFc AppleEvents.p æD FUNCTION AECreateDesc(typeCode: DescType; dataPtr: Ptr; dataSize: Size; VAR result: AEDesc): OSErr; INLINE $303C, $0825, $A816; æKY AECoercePtr æT Function æFc AppleEvents.p æD FUNCTION AECoercePtr(typeCode: DescType; dataPtr: Ptr; dataSize: Size; toType: DescType; VAR result: AEDesc): OSErr; INLINE $303C, $0A02, $A816; æKY AECoerceDesc æT Function æFc AppleEvents.p æD FUNCTION AECoerceDesc(theAEDesc: AEDesc; toType: DescType; VAR result: AEDesc): OSErr; INLINE $303C, $0603, $A816; æKY AEDisposeDesc æT Function æFc AppleEvents.p æD FUNCTION AEDisposeDesc(VAR theAEDesc: AEDesc): OSErr; INLINE $303C, $0204, $A816; æKY AEDuplicateDesc æT Function æFc AppleEvents.p æD FUNCTION AEDuplicateDesc(theAEDesc: AEDesc;VAR result: AEDesc): OSErr; INLINE $303C, $0405, $A816; æKY AECreateList æT Function æFc AppleEvents.p æD FUNCTION AECreateList(factoringPtr: Ptr; factoredSize: Size; isRecord: BOOLEAN; VAR resultList: AEDescList): OSErr; INLINE $303C, $0706, $A816; æKY AECountItems æT Function æFc AppleEvents.p æD FUNCTION AECountItems(theAEDescList: AEDescList; VAR theCount: LONGINT): OSErr; INLINE $303C, $0407, $A816; æKY AEPutPtr æT Function æFc AppleEvents.p æD FUNCTION AEPutPtr(theAEDescList: AEDescList; index: LONGINT; typeCode: DescType; dataPtr: Ptr; dataSize: Size): OSErr; INLINE $303C, $0A08, $A816; æKY AEPutDesc æT Function æFc AppleEvents.p æD FUNCTION AEPutDesc(theAEDescList: AEDescList; index: LONGINT; theAEDesc: AEDesc): OSErr; INLINE $303C, $0609, $A816; æKY AEGetNthPtr æT Function æFc AppleEvents.p æD FUNCTION AEGetNthPtr(theAEDescList: AEDescList; index: LONGINT; desiredType: DescType; VAR theAEKeyword: AEKeyword; VAR typeCode: DescType; dataPtr: Ptr; maximumSize: Size; VAR actualSize: Size): OSErr; INLINE $303C, $100A, $A816; æKY AEGetNthDesc æT Function æFc AppleEvents.p æD FUNCTION AEGetNthDesc(theAEDescList: AEDescList; index: LONGINT; desiredType: DescType; VAR theAEKeyword: AEKeyword; VAR result: AEDesc): OSErr; INLINE $303C, $0A0B, $A816; æKY AESizeOfNthItem æT Function æFc AppleEvents.p æD FUNCTION AESizeOfNthItem(theAEDescList: AEDescList; index: LONGINT; VAR typeCode: DescType; VAR dataSize: Size): OSErr; INLINE $303C, $082A, $A816; æKY AEGetArray æT Function æFc AppleEvents.p æD FUNCTION AEGetArray(theAEDescList: AEDescList; arrayType: AEArrayType; arrayPtr: AEArrayDataPointer; maximumSize: Size; VAR itemType: DescType; VAR itemSize: Size; VAR itemCount: LONGINT): OSErr; INLINE $303C, $0D0C, $A816; æKY AEPutArray æT Function æFc AppleEvents.p æD FUNCTION AEPutArray(theAEDescList: AEDescList; arrayType: AEArrayType; arrayPtr: AEArrayDataPointer; itemType: DescType; itemSize: Size; itemCount: LONGINT): OSErr; INLINE $303C, $0B0D, $A816; æKY AEDeleteItem æT Function æFc AppleEvents.p æD FUNCTION AEDeleteItem(theAEDescList: AEDescList; index: LONGINT): OSErr; INLINE $303C, $040E, $A816; æKY AEPutKeyPtr æT Function æFc AppleEvents.p æD FUNCTION AEPutKeyPtr(theAERecord: AERecord; theAEKeyword: AEKeyword; typeCode: DescType; dataPtr: Ptr; dataSize: Size): OSErr; INLINE $303C, $0A0F, $A816; æKY AEPutKeyDesc æT Function æFc AppleEvents.p æD FUNCTION AEPutKeyDesc(theAERecord: AERecord; theAEKeyword: AEKeyword; theAEDesc: AEDesc): OSErr; INLINE $303C, $0610, $A816; æKY AEGetKeyPtr æT Function æFc AppleEvents.p æD FUNCTION AEGetKeyPtr(theAERecord: AERecord; theAEKeyword: AEKeyword; desiredType: DescType; VAR typeCode: DescType; dataPtr: Ptr; maximumSize: Size; VAR actualSize: Size): OSErr; INLINE $303C, $0E11, $A816; æKY AEGetKeyDesc æT Function æFc AppleEvents.p æD FUNCTION AEGetKeyDesc(theAERecord: AERecord; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr; INLINE $303C, $0812, $A816; æKY AESizeOfKeyDesc æT Function æFc AppleEvents.p æD FUNCTION AESizeOfKeyDesc(theAERecord: AERecord; theAEKeyword: AEKeyword; VAR typeCode: DescType; VAR dataSize: Size): OSErr; INLINE $303C, $0829, $A816; æKY AEDeleteKeyDesc æT Function æFc AppleEvents.p æD FUNCTION AEDeleteKeyDesc(theAERecord: AERecord; theAEKeyword: AEKeyword): OSErr; INLINE $303C, $0413, $A816; æKY AEPutParamPtr æT Function æFc AppleEvents.p æD FUNCTION AEPutParamPtr(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; typeCode: DescType; dataPtr: Ptr; dataSize: Size): OSErr; INLINE $303C,$0A0F,$A816; æKY AEPutParamDesc æT Function æFc AppleEvents.p æD FUNCTION AEPutParamDesc(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; theAEDesc: AEDesc): OSErr; INLINE $303C,$0610,$A816; æKY AEGetParamPtr æT Function æFc AppleEvents.p æD FUNCTION AEGetParamPtr(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR typeCode: DescType; dataPtr: Ptr; maximumSize: Size; VAR actualSize: Size): OSErr; INLINE $303C,$0E11,$A816; æKY AEGetParamDesc æT Function æFc AppleEvents.p æD FUNCTION AEGetParamDesc(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr; INLINE $303C,$0812,$A816; æKY AESizeOfParam æT Function æFc AppleEvents.p æD FUNCTION AESizeOfParam(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; VAR typeCode: DescType; VAR dataSize: Size): OSErr; INLINE $303C,$0829,$A816; æKY AEDeleteParam æT Function æFc AppleEvents.p æD FUNCTION AEDeleteParam(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword): OSErr; INLINE $303C,$0413,$A816; æKY AEGetAttributePtr æT Function æFc AppleEvents.p æD FUNCTION AEGetAttributePtr(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR typeCode: DescType; dataPtr: Ptr; maximumSize: Size; VAR actualSize: Size): OSErr; INLINE $303C,$0E15,$A816; æKY AEGetAttributeDesc æT Function æFc AppleEvents.p æD FUNCTION AEGetAttributeDesc(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr; INLINE $303C,$0826,$A816; æKY AESizeOfAttribute æT Function æFc AppleEvents.p æD FUNCTION AESizeOfAttribute(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; VAR typeCode: DescType; VAR dataSize: Size): OSErr; INLINE $303C,$0828,$A816; æKY AEPutAttributePtr æT Function æFc AppleEvents.p æD FUNCTION AEPutAttributePtr(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; typeCode: DescType; dataPtr: Ptr; dataSize: Size): OSErr; INLINE $303C,$0A16,$A816; æKY AEPutAttributeDesc æT Function æFc AppleEvents.p æD FUNCTION AEPutAttributeDesc(theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; theAEDesc: AEDesc): OSErr; INLINE $303C,$0627,$A816; æKY AECreateAppleEvent æT Function æFc AppleEvents.p æD FUNCTION AECreateAppleEvent(theAEEventClass: AEEventClass; theAEEventID: AEEventID; target: AEAddressDesc; returnID: INTEGER; transactionID: LONGINT; VAR result: AppleEvent): OSErr; INLINE $303C,$0B14,$A816; æKY AESend æT Function æFc AppleEvents.p æD FUNCTION AESend(theAppleEvent: AppleEvent; VAR reply: AppleEvent; sendMode: AESendMode; sendPriority: AESendPriority; timeOutInTicks: LONGINT; idleProc: IdleProcPtr; filterProc: EventFilterProcPtr): OSErr; INLINE $303C,$0D17,$A816; æKY AEProcessAppleEvent æT Function æFc AppleEvents.p æD FUNCTION AEProcessAppleEvent(theEventRecord: EventRecord): OSErr; INLINE $303C,$021B,$A816; æKY AEResetTimer æT Function æFc AppleEvents.p æD FUNCTION AEResetTimer(reply: AppleEvent): OSErr; INLINE $303C,$0219,$A816; æKY AESuspendTheCurrentEvent æT Function æFc AppleEvents.p æD FUNCTION AESuspendTheCurrentEvent(theAppleEvent: AppleEvent): OSErr; INLINE $303C,$022B,$A816; æKY AEResumeTheCurrentEvent æT Function æFc AppleEvents.p æD FUNCTION AEResumeTheCurrentEvent(theAppleEvent: AppleEvent; reply: AppleEvent; dispatcher: EventHandlerProcPtr; handlerRefcon: LONGINT): OSErr; INLINE $303C,$0818,$A816; æKY AEGetTheCurrentEvent æT Function æFc AppleEvents.p æD FUNCTION AEGetTheCurrentEvent(VAR theAppleEvent: AppleEvent): OSErr; INLINE $303C,$021A,$A816; æKY AESetTheCurrentEvent æT Function æFc AppleEvents.p æD FUNCTION AESetTheCurrentEvent(theAppleEvent: AppleEvent): OSErr; INLINE $303C,$022C,$A816; æKY AEGetInteractionAllowed æT Function æFc AppleEvents.p æD FUNCTION AEGetInteractionAllowed(VAR level: AEInteractAllowed): OSErr; INLINE $303C,$021D,$A816; æKY AESetInteractionAllowed æT Function æFc AppleEvents.p æD FUNCTION AESetInteractionAllowed(level: AEInteractAllowed): OSErr; INLINE $303C,$011E,$A816; æKY AEInteractWithUser æT Function æFc AppleEvents.p æD FUNCTION AEInteractWithUser(timeOutInTicks: LONGINT; nmReqPtr: NMRecPtr; idleProc: IdleProcPtr): OSErr; INLINE $303C,$061C,$A816; æKY AEInstallEventHandler æT Function æFc AppleEvents.p æD FUNCTION AEInstallEventHandler(theAEEventClass: AEEventClass; theAEEventID: AEEventID; handler: EventHandlerProcPtr; handlerRefcon: LONGINT; isSysHandler: BOOLEAN): OSErr; INLINE $303C,$091F,$A816; æKY AERemoveEventHandler æT Function æFc AppleEvents.p æD FUNCTION AERemoveEventHandler(theAEEventClass: AEEventClass; theAEEventID: AEEventID; handler: EventHandlerProcPtr; isSysHandler: BOOLEAN): OSErr; INLINE $303C,$0720,$A816; æKY AEGetEventHandler æT Function æFc AppleEvents.p æD FUNCTION AEGetEventHandler(theAEEventClass: AEEventClass; theAEEventID: AEEventID; VAR handler: EventHandlerProcPtr; VAR handlerRefcon: LONGINT; isSysHandler: BOOLEAN): OSErr; INLINE $303C,$0921,$A816; æKY AEInstallCoercionHandler æT Function æFc AppleEvents.p æD FUNCTION AEInstallCoercionHandler(fromType: DescType; toType: DescType; handler: ProcPtr; handlerRefcon: LONGINT; fromTypeIsDesc: BOOLEAN; isSysHandler: BOOLEAN): OSErr; INLINE $303C, $0A22, $A816; æKY AERemoveCoercionHandler æT Function æFc AppleEvents.p æD FUNCTION AERemoveCoercionHandler(fromType: DescType; toType: DescType; handler: ProcPtr; isSysHandler: BOOLEAN): OSErr; INLINE $303C, $0723, $A816; æKY AEGetCoercionHandler æT Function æFc AppleEvents.p æD FUNCTION AEGetCoercionHandler(fromType: DescType; toType: DescType; VAR handler: ProcPtr; VAR handlerRefcon: LONGINT; VAR fromTypeIsDesc: BOOLEAN; isSysHandler: BOOLEAN): OSErr; INLINE $303C, $0B24, $A816; æKY AEInstallSpecialHandler æT Function æFc AppleEvents.p æD FUNCTION AEInstallSpecialHandler(functionClass: AEKeyword; handler: ProcPtr; isSysHandler: BOOLEAN): OSErr; INLINE $303C, $0500, $A816; æKY AERemoveSpecialHandler æT Function æFc AppleEvents.p æD FUNCTION AERemoveSpecialHandler(functionClass: AEKeyword; handler: ProcPtr; isSysHandler: BOOLEAN): OSErr; INLINE $303C, $0501, $A816; æKY AEGetSpecialHandler æT Function æFc AppleEvents.p æD FUNCTION AEGetSpecialHandler(functionClass: AEKeyword; VAR handler: ProcPtr; isSysHandler: BOOLEAN): OSErr; INLINE $303C, $052D, $A816; æKY AppleTalk.p æKL AFPCommand ASPAbortOS ASPCloseAll ASPCloseSession ASPGetParms ASPGetStatus ASPOpenSession ASPUserCommand ASPUserWrite ATEvent ATPAddRsp ATPCloseSocket ATPGetRequest ATPKillAllGetReq ATPLoad ATPOpenSocket ATPreFlightEvent ATPReqCancel ATPRequest ATPResponse ATPRspCancel ATPSndRequest ATPSndRsp ATPUnload BuildBDS BuildDDPwds BuildLAPwds DDPCloseSocket DDPOpenSocket DDPRdCancel DDPRead DDPWrite GetBridgeAddress GetLocalZones GetMyZone GetNodeAddress GetZoneList IsATPOpen IsMPPOpen LAPAddATQ LAPCloseProtocol LAPOpenProtocol LAPRdCancel LAPRead LAPRmvATQ LAPWrite MPPClose MPPOpen NBPConfirm NBPExtract NBPLoad NBPLookup NBPRegister NBPRemove NBPSetEntity NBPSetNTE NBPUnload OpenXPP PAddResponse PATalkClosePrep PAttachPH PCloseATPSkt PCloseSkt PConfirmName PDetachPH PGetAppleTalkInfo PGetRequest PKillGetReq PKillNBP PKillSendReq PLookupName PNSendRequest POpenATPSkt POpenSkt PRegisterName PRelRspCB PRelTCB PRemoveName PSendRequest PSendResponse PSetSelfSend PWriteDDP PWriteLAP ABByte ABCallType abortOS ABProtoType ABRecHandle ABRecPtr ABusRecord AddrBlock addResponse afpAddAPPL afpAddCmt afpAddIcon afpByteRangeLock afpCall AFPCommandBlock afpContLogin afpCopyFile afpDelete afpDirClose afpDirCreate afpDTClose afpDTOpen afpEnumerate afpFileCreate afpFlush afpForkClose afpForkFlush afpGetAPPL afpGetCmt afpGetDirParms afpGetFileParms afpGetFlDrParms afpGetForkParms afpGetIcon afpGetSInfo afpGetSParms afpGetVolParms afpGtIcnInfo afpLogin afpLogout afpMapID afpMapName afpMove afpOpenDir afpOpenFork afpOpenVol afpRead afpRename afpRmvAPPL afpRmvCmt afpSetDirParms afpSetFileParms afpSetFlDrParms afpSetForkParms afpSetVolParms afpVolClose afpWrite ATalkClosePrep atpEOMvalue ATPParamBlock ATPPBPtr atpProto atpRefNum atpSendChkvalue atpSize atpSTSvalue atpTIDValidvalue atpUnitNum atpXOvalue ATQEntry ATQEntryPtr attachPH ATTransCancelClose ATTransClose ATTransClosePrep ATTransOpen BDSElement BDSPtr BDSType BitMapType closeAll closeATPSkt closeSess closeSkt confirmName ddpProto ddpSize detachPH EntityName EntityPtr GetATalkInfo getParms getRequest getStatus killAllGetReq killGetReq killNBP killSendReq LAddAEQ LAPAdrBlock LAPMgrCall LAPMgrPtr lapProto lapSize lastResident loadNBP lookupName lookupReply LRmvAEQ MPPParamBlock MPPParmType MPPPBPtr mppRefNum mppUnitNum NamesTableEntry nbpProto nbpSize nSendRequest openATPSkt openSess openSkt registerName relRspCB relTCB removeName RetransType scbMemSize sendRequest sendResponse SetMyZone setSelfSend tATPAddRsp tATPGetRequest tATPRequest tATPResponse tATPSdRsp tATPSndRequest tDDPRead tDDPWrite tLAPRead tLAPWrite tNBPConfirm tNBPLookup tNBPRegister unloadNBP userCommand userWrite WDSElement writeDDP writeLAP xCall XPPEndPrmType xppFlagClr xppFlagSet xppLoadedBit XPPParamBlock XPPParmBlkPtr XPPPrmBlkType xppRefNum XPPSubPrmType xppUnitNum zipGetLocalZones zipGetMyZone zipGetZoneList æKY mppUnitNum æT constant æFc AppleTalk.p æD mppUnitNum = 9; {MPP unit number} æKY atpUnitNum æT constant æFc AppleTalk.p æD atpUnitNum = 10; { ATP unit number } æKY xppUnitNum æT constant æFc AppleTalk.p æD xppUnitNum = 40; { XPP unit number } æKY mppRefNum æT constant æFc AppleTalk.p æD mppRefNum = -10; {MPP reference number } æKY atpRefNum æT constant æFc AppleTalk.p æD atpRefNum = -11; { ATP reference number } æKY xppRefNum æT constant æFc AppleTalk.p æD xppRefNum = -41; { XPP reference number } æKY lookupReply æT constant æFc AppleTalk.p æD lookupReply = 242; { This command queued to ourself } æKY writeLAP æT constant æFc AppleTalk.p æD writeLAP = 243; { Write out LAP packet } æKY detachPH æT constant æFc AppleTalk.p æD detachPH = 244; { Detach LAP protocol handler } æKY attachPH æT constant æFc AppleTalk.p æD attachPH = 245; { Attach LAP protocol handler } æKY writeDDP æT constant æFc AppleTalk.p æD writeDDP = 246; { Write out DDP packet } æKY closeSkt æT constant æFc AppleTalk.p æD closeSkt = 247; { Close DDP socket } æKY openSkt æT constant æFc AppleTalk.p æD openSkt = 248; { Open DDP socket } æKY loadNBP æT constant æFc AppleTalk.p æD loadNBP = 249; { Load NBP command-executing code } æKY lastResident æT constant æFc AppleTalk.p æD lastResident = 249; { Last resident command } æKY confirmName æT constant æFc AppleTalk.p æD confirmName = 250; { Confirm name } æKY lookupName æT constant æFc AppleTalk.p æD lookupName = 251; { Look up name on internet } æKY removeName æT constant æFc AppleTalk.p æD removeName = 252; { Remove name from Names Table } æKY registerName æT constant æFc AppleTalk.p æD registerName = 253; { Register name in Names Table } æKY killNBP æT constant æFc AppleTalk.p æD killNBP = 254; { Kill outstanding NBP request } æKY unloadNBP æT constant æFc AppleTalk.p æD unloadNBP = 255; { Unload NBP command code } æKY setSelfSend æT constant æFc AppleTalk.p æD setSelfSend = 256; { MPP: Set to allow writes to self } æKY SetMyZone æT constant æFc AppleTalk.p æD SetMyZone = 257; { Set my zone name } æKY GetATalkInfo æT constant æFc AppleTalk.p æD GetATalkInfo = 258; { get AppleTalk information } æKY ATalkClosePrep æT constant æFc AppleTalk.p æD ATalkClosePrep = 259; { AppleTalk close query } æKY nSendRequest æT constant æFc AppleTalk.p æD nSendRequest = 248; { NSendRequest code } æKY relRspCB æT constant æFc AppleTalk.p æD relRspCB = 249; { Release RspCB } æKY closeATPSkt æT constant æFc AppleTalk.p æD closeATPSkt = 250; { Close ATP socket } æKY addResponse æT constant æFc AppleTalk.p æD addResponse = 251; { Add response code | Require open skt } æKY sendResponse æT constant æFc AppleTalk.p æD sendResponse = 252; { Send response code } æKY getRequest æT constant æFc AppleTalk.p æD getRequest = 253; { Get request code } æKY openATPSkt æT constant æFc AppleTalk.p æD openATPSkt = 254; { Open ATP socket } æKY sendRequest æT constant æFc AppleTalk.p æD sendRequest = 255; { Send request code } æKY relTCB æT constant æFc AppleTalk.p æD relTCB = 256; { Release TCB } æKY killGetReq æT constant æFc AppleTalk.p æD killGetReq = 257; { Kill GetRequest } æKY killSendReq æT constant æFc AppleTalk.p æD killSendReq = 258; { Kill SendRequest } æKY killAllGetReq æT constant æFc AppleTalk.p æD killAllGetReq = 259; { Kill all getRequests for a skt } æKY openSess æT constant æFc AppleTalk.p æD openSess = 255; { Open session } æKY closeSess æT constant æFc AppleTalk.p æD closeSess = 254; { Close session } æKY userCommand æT constant æFc AppleTalk.p æD userCommand = 253; { User command } æKY userWrite æT constant æFc AppleTalk.p æD userWrite = 252; { User write } æKY getStatus æT constant æFc AppleTalk.p æD getStatus = 251; { Get status } æKY afpCall æT constant æFc AppleTalk.p æD afpCall = 250; { AFP command (buffer has command code) } æKY getParms æT constant æFc AppleTalk.p æD getParms = 249; { Get parameters } æKY abortOS æT constant æFc AppleTalk.p æD abortOS = 248; { Abort open session request } æKY closeAll æT constant æFc AppleTalk.p æD closeAll = 247; { Close all open sessions } æKY xCall æT constant æFc AppleTalk.p æD xCall = 246; { .XPP extended calls } æKY ATTransOpen æT constant æFc AppleTalk.p æD ATTransOpen = 0; {AppleTalk has opened} æKY ATTransClose æT constant æFc AppleTalk.p æD ATTransClose = 2; {AppleTalk is about to close} æKY ATTransClosePrep æT constant æFc AppleTalk.p æD ATTransClosePrep = 3; {Is it OK to close AppleTalk ?} æKY ATTransCancelClose æT constant æFc AppleTalk.p æD ATTransCancelClose = 4; {Cancel the ClosePrep transition} æKY afpByteRangeLock æT constant æFc AppleTalk.p æD afpByteRangeLock = 1; {AFPCall command codes} æKY afpVolClose æT constant æFc AppleTalk.p æD afpVolClose = 2; {AFPCall command codes} æKY afpDirClose æT constant æFc AppleTalk.p æD afpDirClose = 3; {AFPCall command codes} æKY afpForkClose æT constant æFc AppleTalk.p æD afpForkClose = 4; {AFPCall command codes} æKY afpCopyFile æT constant æFc AppleTalk.p æD afpCopyFile = 5; {AFPCall command codes} æKY afpDirCreate æT constant æFc AppleTalk.p æD afpDirCreate = 6; {AFPCall command codes} æKY afpFileCreate æT constant æFc AppleTalk.p æD afpFileCreate = 7; {AFPCall command codes} æKY afpDelete æT constant æFc AppleTalk.p æD afpDelete = 8; {AFPCall command codes} æKY afpEnumerate æT constant æFc AppleTalk.p æD afpEnumerate = 9; {AFPCall command codes} æKY afpFlush æT constant æFc AppleTalk.p æD afpFlush = 10; {AFPCall command codes} æKY afpForkFlush æT constant æFc AppleTalk.p æD afpForkFlush = 11; {AFPCall command codes} æKY afpGetDirParms æT constant æFc AppleTalk.p æD afpGetDirParms = 12; {AFPCall command codes} æKY afpGetFileParms æT constant æFc AppleTalk.p æD afpGetFileParms = 13; {AFPCall command codes} æKY afpGetForkParms æT constant æFc AppleTalk.p æD afpGetForkParms = 14; {AFPCall command codes} æKY afpGetSInfo æT constant æFc AppleTalk.p æD afpGetSInfo = 15; {AFPCall command codes} æKY afpGetSParms æT constant æFc AppleTalk.p æD afpGetSParms = 16; {AFPCall command codes} æKY afpGetVolParms æT constant æFc AppleTalk.p æD afpGetVolParms = 17; {AFPCall command codes} æKY afpLogin æT constant æFc AppleTalk.p æD afpLogin = 18; {AFPCall command codes} æKY afpContLogin æT constant æFc AppleTalk.p æD afpContLogin = 19; {AFPCall command codes} æKY afpLogout æT constant æFc AppleTalk.p æD afpLogout = 20; {AFPCall command codes} æKY afpMapID æT constant æFc AppleTalk.p æD afpMapID = 21; {AFPCall command codes} æKY afpMapName æT constant æFc AppleTalk.p æD afpMapName = 22; {AFPCall command codes} æKY afpMove æT constant æFc AppleTalk.p æD afpMove = 23; {AFPCall command codes} æKY afpOpenVol æT constant æFc AppleTalk.p æD afpOpenVol = 24; {AFPCall command codes} æKY afpOpenDir æT constant æFc AppleTalk.p æD afpOpenDir = 25; {AFPCall command codes} æKY afpOpenFork æT constant æFc AppleTalk.p æD afpOpenFork = 26; {AFPCall command codes} æKY afpRead æT constant æFc AppleTalk.p æD afpRead = 27; {AFPCall command codes} æKY afpRename æT constant æFc AppleTalk.p æD afpRename = 28; {AFPCall command codes} æKY afpSetDirParms æT constant æFc AppleTalk.p æD afpSetDirParms = 29; {AFPCall command codes} æKY afpSetFileParms æT constant æFc AppleTalk.p æD afpSetFileParms = 30; {AFPCall command codes} æKY afpSetForkParms æT constant æFc AppleTalk.p æD afpSetForkParms = 31; {AFPCall command codes} æKY afpSetVolParms æT constant æFc AppleTalk.p æD afpSetVolParms = 32; {AFPCall command codes} æKY afpWrite æT constant æFc AppleTalk.p æD afpWrite = 33; {AFPCall command codes} æKY afpGetFlDrParms æT constant æFc AppleTalk.p æD afpGetFlDrParms = 34; {AFPCall command codes} æKY afpSetFlDrParms æT constant æFc AppleTalk.p æD afpSetFlDrParms = 35; {AFPCall command codes} æKY afpDTOpen æT constant æFc AppleTalk.p æD afpDTOpen = 48; {AFPCall command codes} æKY afpDTClose æT constant æFc AppleTalk.p æD afpDTClose = 49; {AFPCall command codes} æKY afpGetIcon æT constant æFc AppleTalk.p æD afpGetIcon = 51; {AFPCall command codes} æKY afpGtIcnInfo æT constant æFc AppleTalk.p æD afpGtIcnInfo = 52; {AFPCall command codes} æKY afpAddAPPL æT constant æFc AppleTalk.p æD afpAddAPPL = 53; {AFPCall command codes} æKY afpRmvAPPL æT constant æFc AppleTalk.p æD afpRmvAPPL = 54; {AFPCall command codes} æKY afpGetAPPL æT constant æFc AppleTalk.p æD afpGetAPPL = 55; {AFPCall command codes} æKY afpAddCmt æT constant æFc AppleTalk.p æD afpAddCmt = 56; {AFPCall command codes} æKY afpRmvCmt æT constant æFc AppleTalk.p æD afpRmvCmt = 57; {AFPCall command codes} æKY afpGetCmt æT constant æFc AppleTalk.p æD afpGetCmt = 58; {AFPCall command codes} æKY afpAddIcon æT constant æFc AppleTalk.p æD afpAddIcon = 192; {Special code for ASP Write commands} æKY xppLoadedBit æT constant æFc AppleTalk.p æD xppLoadedBit = 5; { XPP bit in PortBUse } æKY scbMemSize æT constant æFc AppleTalk.p æD scbMemSize = 192; {Size of memory for SCB } æKY xppFlagClr æT constant æFc AppleTalk.p æD xppFlagClr = 0; {Cs for AFPCommandBlock } æKY xppFlagSet æT constant æFc AppleTalk.p æD xppFlagSet = 128; {StartEndFlag & NewLineFlag fields. } æKY lapSize æT constant æFc AppleTalk.p æD lapSize = 20; æKY ddpSize æT constant æFc AppleTalk.p æD ddpSize = 26; æKY nbpSize æT constant æFc AppleTalk.p æD nbpSize = 26; æKY atpSize æT constant æFc AppleTalk.p æD atpSize = 56; æKY atpXOvalue æT constant æFc AppleTalk.p æD atpXOvalue = 32; {ATP exactly-once bit } æKY atpEOMvalue æT constant æFc AppleTalk.p æD atpEOMvalue = 16; {ATP End-Of-Message bit } æKY atpSTSvalue æT constant æFc AppleTalk.p æD atpSTSvalue = 8; {ATP Send-Transmission-Status bit } æKY atpTIDValidvalue æT constant æFc AppleTalk.p æD atpTIDValidvalue = 2; {ATP trans. ID valid bit } æKY atpSendChkvalue æT constant æFc AppleTalk.p æD atpSendChkvalue = 1; {ATP send checksum bit } æKY zipGetLocalZones æT constant æFc AppleTalk.p æD zipGetLocalZones = 5; æKY zipGetZoneList æT constant æFc AppleTalk.p æD zipGetZoneList = 6; æKY zipGetMyZone æT constant æFc AppleTalk.p æD zipGetMyZone = 7; æKY LAPMgrPtr æT constant æFc AppleTalk.p æD LAPMgrPtr = $B18; {Entry point for LAP Manager} æKY LAPMgrCall æT constant æFc AppleTalk.p æD LAPMgrCall = 2; {Offset to LAP routines} æKY LAddAEQ æT constant æFc AppleTalk.p æD LAddAEQ = 23; {LAPAddATQ routine selector} æKY LRmvAEQ æT constant æFc AppleTalk.p æD LRmvAEQ = 24; {LAPRmvATQ routine selector} æKY ABCallType tLAPRead tLAPWrite tDDPRead tDDPWrite tNBPLookup tNBPConfirm tNBPRegister tATPSndRequest tATPGetRequest tATPSdRsp tATPAddRsp tATPRequest tATPResponse æT enum æFc AppleTalk.p æD ABCallType = (tLAPRead,tLAPWrite,tDDPRead,tDDPWrite,tNBPLookup,tNBPConfirm, tNBPRegister,tATPSndRequest,tATPGetRequest,tATPSdRsp,tATPAddRsp,tATPRequest, tATPResponse); æKY ABProtoType lapProto ddpProto nbpProto atpProto æT enum æFc AppleTalk.p æD ABProtoType = (lapProto,ddpProto,nbpProto,atpProto); æKY ABByte æT typedef æFc AppleTalk.p æD ABByte=1..127; æKY LAPAdrBlock æT struct æFc AppleTalk.p æD LAPAdrBlock = PACKED RECORD dstNodeID: Byte; srcNodeID: Byte; lapProtType: ABByte; END; æKY ATQEntry æT struct æFc AppleTalk.p æD ATQEntryPtr = ^ATQEntry; ATQEntry = RECORD qLink: ATQEntryPtr; {next queue entry} qType: INTEGER; {queue type} CallAddr: ProcPtr; {pointer to your routine} END; æKY AddrBlock æT struct æFc AppleTalk.p æD AddrBlock = PACKED RECORD aNet: INTEGER; aNode: Byte; aSocket: Byte; END; æKY EntityName æT struct æFc AppleTalk.p æD EntityPtr = ^EntityName; EntityName = RECORD objStr: Str32; typeStr: Str32; zoneStr: Str32; END; æKY RetransType æT struct æFc AppleTalk.p æD RetransType = PACKED RECORD retransInterval: Byte; retransCount: Byte; END; æKY BDSElement æT struct æFc AppleTalk.p æD BDSElement = RECORD buffSize: INTEGER; buffPtr: Ptr; dataSize: INTEGER; userBytes: LONGINT; END; æKY BDSType æT typedef æFc AppleTalk.p æD BDSType = ARRAY [0..7] OF BDSElement; æKY BDSPtr æT typedef æFc AppleTalk.p æD BDSPtr = ^BDSType; æKY BitMapType æT typedef æFc AppleTalk.p æD BitMapType = PACKED ARRAY [0..7] OF BOOLEAN; æKY ABusRecord æT struct æFc AppleTalk.p æD ABRecPtr = ^ABusRecord; ABRecHandle = ^ABRecPtr; ABusRecord = RECORD abOpcode: ABCallType; abResult: INTEGER; abUserReference: LONGINT; CASE ABProtoType OF lapProto: (lapAddress: LAPAdrBlock; lapReqCount: INTEGER; lapActCount: INTEGER; lapDataPtr: Ptr); ddpProto: (ddpType: Byte; ddpSocket: Byte; ddpAddress: AddrBlock; ddpReqCount: INTEGER; ddpActCount: INTEGER; ddpDataPtr: Ptr; ddpNodeID: Byte); nbpProto: (nbpEntityPtr: EntityPtr; nbpBufPtr: Ptr; nbpBufSize: INTEGER; nbpDataField: INTEGER; nbpAddress: AddrBlock; nbpRetransmitInfo: RetransType); atpProto: (atpSocket: Byte; atpAddress: AddrBlock; atpReqCount: INTEGER; atpDataPtr: Ptr; atpRspBDSPtr: BDSPtr; atpBitmap: BitMapType; atpTransID: INTEGER; atpActCount: INTEGER; atpUserData: LONGINT; atpXO: BOOLEAN; atpEOM: BOOLEAN; atpTimeOut: Byte; atpRetries: Byte; atpNumBufs: Byte; atpNumRsp: Byte; atpBDSSize: Byte; atpRspUData: LONGINT; atpRspBuf: Ptr; atpRspSize: INTEGER); END; æKY æT typedef æFc AppleTalk.p æD AFPCommandBlock = PACKED RECORD cmdByte: Byte; startEndFlag: Byte; forkRefNum: INTEGER; rwOffset: LONGINT; reqCount: LONGINT; newLineFlag: Byte; newLineChar: CHAR; END; æKY æT typedef æFc AppleTalk.p æD WDSElement = RECORD entryLength: INTEGER; entryPtr: Ptr; END; æKY NamesTableEntry æT struct æFc AppleTalk.p æD NamesTableEntry = RECORD qLink: QElemPtr; nteAddress: AddrBlock; nteData: PACKED ARRAY [1..100] OF CHAR; END; æKY MPPParmType æT union æFc AppleTalk.p æD MPPParmType = (LAPWriteParm,AttachPHParm,DetachPHParm,OpenSktParm,CloseSktParm, WriteDDPParm,OpenATPSktParm,CloseATPSktParm,SendRequestParm,GetRequestParm, SendResponseParm,AddResponseParm,RelTCBParm,RelRspCBParm,RegisterNameParm, LookupNameParm,ConfirmNameParm,RemoveNameParm,SetSelfSendParm,NSendRequestParm, KillSendReqParm,KillGetReqParm,KillNBPParm,GetAppleTalkInfoParm,KillAllGetReqParm, ATalkClosePrepParm,CancelATalkClosePrepParm); æKY MPPParamBlock æT struct æFc AppleTalk.p æD MPPPBPtr = ^MPPParamBlock; MPPParamBlock = PACKED RECORD qLink: QElemPtr; {next queue entry} qType: INTEGER; {queue type} ioTrap: INTEGER; {routine trap} ioCmdAddr: Ptr; {routine address} ioCompletion: ProcPtr; {completion routine} ioResult: OSErr; {result code} ioNamePtr: StringPtr; {->filename} ioVRefNum: INTEGER; {volume reference or drive number} ioRefNum: INTEGER; {driver reference number} csCode: INTEGER; {call command code AUTOMATICALLY set} CASE MPPParmType OF LAPWriteParm: (filler0: INTEGER; wdsPointer: Ptr); {->Write Data Structure} AttachPHParm,DetachPHParm: (protType: Byte; {ALAP Protocol Type} filler1: Byte; handler: Ptr); {->protocol handler routine} OpenSktParm,CloseSktParm,WriteDDPParm: (socket: Byte; {socket number} checksumFlag: Byte; {checksum flag} listener: Ptr); {->socket listener routine} RegisterNameParm,LookupNameParm,ConfirmNameParm,RemoveNameParm: (interval: Byte; {retry interval} count: Byte; {retry count} entityPtr: Ptr; {->names table element or ->entity name} CASE MPPParmType OF RegisterNameParm: (verifyFlag: Byte; {set if verify needed} filler3: Byte); LookupNameParm: (retBuffPtr: Ptr; {->return buffer} retBuffSize: INTEGER; {return buffer size} maxToGet: INTEGER; {matches to get} numGotten: INTEGER); {matched gotten} ConfirmNameParm: (confirmAddr: AddrBlock; {->entity} newSocket: Byte; {socket number} filler4: Byte)); SetSelfSendParm: (newSelfFlag: Byte; {self-send toggle flag} oldSelfFlag: Byte); {previous self-send state} KillNBPParm: (nKillQEl: Ptr); {ptr to Q element to cancel} GetAppleTalkInfoParm: (version: INTEGER; {requested info version} varsPtr: Ptr; {pointer to well known MPP vars} DCEPtr: Ptr; {pointer to MPP DCE} portID: INTEGER; {port number [0..7]} configuration: LONGINT; {32-bit configuration word} selfSend: INTEGER; {non zero if SelfSend enabled} netLo: INTEGER; {low value of network range} netHi: INTEGER; {high value of network range} ourAddr: LONGINT; {our 24-bit AppleTalk address} routerAddr: LONGINT; {24-bit address of (last) router} numOfPHs: INTEGER; {max. number of protocol handlers} numOfSkts: INTEGER; {max. number of static sockets} numNBPEs: INTEGER; {max. concurrent NBP requests} nTQueue: Ptr; {pointer to registered name queue} LAlength: INTEGER; {length in bytes of data link addr} linkAddr: Ptr; {data link address returned} zoneName: Ptr); {zone name returned} ATalkClosePrepParm: (appName: Ptr); {pointer to application name in buffer} END; æKY ATPParamBlock æT struct æFc AppleTalk.p æD ATPPBPtr = ^ATPParamBlock; ATPParamBlock = PACKED RECORD qLink: QElemPtr; {next queue entry} qType: INTEGER; {queue type} ioTrap: INTEGER; {routine trap} ioCmdAddr: Ptr; {routine address} ioCompletion: ProcPtr; {completion routine} ioResult: OSErr; {result code} userData: LONGINT; {ATP user bytes} reqTID: INTEGER; {request transaction ID} ioRefNum: INTEGER; {driver reference number} csCode: INTEGER; {Call command code automatically set} atpSocket: Byte; {currBitMap or socket number} CASE MPPParmType OF SendRequestParm, SendResponseParm, GetRequestParm, AddResponseParm, KillSendReqParm: (atpFlags: Byte; {control information} addrBlock: AddrBlock; {source/dest. socket address} reqLength: INTEGER; {request/response length} reqPointer: Ptr; {-> request/response data} bdsPointer: Ptr; {-> response BDS} CASE MPPParmType OF SendRequestParm: (numOfBuffs: Byte; {number of responses expected} timeOutVal: Byte; {timeout interval} numOfResps: Byte; {number of responses actually received} retryCount: Byte; {number of retries} intBuff: INTEGER; {used internally for NSendRequest} TRelTime: Byte); {TRelease time for extended send request} SendResponseParm: (filler0: Byte; {numOfBuffs} bdsSize: Byte; {number of BDS elements} transID: INTEGER); {transaction ID} GetRequestParm: (bitMap: Byte; {bit map} filler1: Byte); AddResponseParm: (rspNum: Byte; {sequence number} filler2: Byte); KillSendReqParm: (aKillQEl: Ptr)); {ptr to Q element to cancel} END; æKY XPPPrmBlkType æT union æFc AppleTalk.p æD XPPPrmBlkType = (XPPPrmBlk,ASPSizeBlk,ASPAbortPrm,XCallParam); æKY XPPSubPrmType æT union æFc AppleTalk.p æD XPPSubPrmType = (ASPOpenPrm,ASPSubPrm); æKY XPPEndPrmType æT union æFc AppleTalk.p æD XPPEndPrmType = (AFPLoginPrm,ASPEndPrm); æKY XPPParamBlock æT struct æFc AppleTalk.p æD XPPParmBlkPtr = ^XPPParamBlock; XPPParamBlock = PACKED RECORD qLink: QElemPtr; {next queue entry} qType: INTEGER; {queue type} ioTrap: INTEGER; {routine trap} ioCmdAddr: Ptr; {routine address} ioCompletion: ProcPtr; {completion routine} ioResult: OSErr; {result code} cmdResult: LONGINT; {command result (ATP user bytes)} ioVRefNum: INTEGER; {volume reference or drive number} ioRefNum: INTEGER; {driver reference number} csCode: INTEGER; {call command code} CASE XPPPrmBlkType OF ASPAbortPrm: (abortSCBPtr: Ptr); {SCB pointer for AbortOS} ASPSizeBlk: (aspMaxCmdSize: INTEGER; {for SPGetParms} aspQuantumSize: INTEGER; {for SPGetParms} numSesss: INTEGER); {for SPGetParms} XPPPrmBlk: (sessRefnum: INTEGER; {offset to session refnum} aspTimeout: Byte; {timeout for ATP} aspRetry: Byte; {retry count for ATP} CASE XPPSubPrmType OF ASPOpenPrm: (serverAddr: AddrBlock; {server address block} scbPointer: Ptr; {SCB pointer} attnRoutine: Ptr); {attention routine pointer} ASPSubPrm: (cbSize: INTEGER; {command block size} cbPtr: Ptr; {command block pointer} rbSize: INTEGER; {reply buffer size} rbPtr: Ptr; {reply buffer pointer} CASE XPPEndPrmType OF AFPLoginPrm: (afpAddrBlock: AddrBlock; {address block in AFP login} afpSCBPtr: Ptr; {SCB pointer in AFP login} afpAttnRoutine: Ptr); {Attn routine pointer in AFP login} ASPEndPrm: (wdSize: INTEGER; {write data size} wdPtr: Ptr; {write data pointer} ccbStart: ARRAY [0..295] OF Byte))); {afpWrite max size = 296, else 150} XCallParam: (xppSubCode: INTEGER; xppTimeout: Byte; {retry interval (seconds)} xppRetry: Byte; {retry count} filler1: INTEGER; {word space for rent. see the super.} zipBuffPtr: Ptr; {pointer to buffer (must be 578 bytes)} zipNumZones: INTEGER; {no. of zone names in this response} zipLastFlag: Byte; {non-zero if no more zones} filler2: Byte; {filler} zipInfoField: PACKED ARRAY [1..70] OF Byte); {on initial call, set first word to zero} END; æKY OpenXPP æT Function æFc AppleTalk.p æD FUNCTION OpenXPP(VAR xppRefnum: INTEGER): OSErr; æKY ASPOpenSession æT Function æFc AppleTalk.p æD FUNCTION ASPOpenSession(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY ASPCloseSession æT Function æFc AppleTalk.p æD FUNCTION ASPCloseSession(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY ASPAbortOS æT Function æFc AppleTalk.p æD FUNCTION ASPAbortOS(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY ASPGetParms æT Function æFc AppleTalk.p æD FUNCTION ASPGetParms(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY ASPCloseAll æT Function æFc AppleTalk.p æD FUNCTION ASPCloseAll(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY ASPUserWrite æT Function æFc AppleTalk.p æD FUNCTION ASPUserWrite(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY ASPUserCommand æT Function æFc AppleTalk.p æD FUNCTION ASPUserCommand(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY ASPGetStatus æT Function æFc AppleTalk.p æD FUNCTION ASPGetStatus(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY AFPCommand æT Function æFc AppleTalk.p æD FUNCTION AFPCommand(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY GetLocalZones æT Function æFc AppleTalk.p æD FUNCTION GetLocalZones(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY GetZoneList æT Function æFc AppleTalk.p æD FUNCTION GetZoneList(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY GetMyZone æT Function æFc AppleTalk.p æD FUNCTION GetMyZone(thePBptr: XPPParmBlkPtr;async: BOOLEAN): OSErr; æKY PAttachPH æT Function æFc AppleTalk.p æD FUNCTION PAttachPH(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PDetachPH æT Function æFc AppleTalk.p æD FUNCTION PDetachPH(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PWriteLAP æT Function æFc AppleTalk.p æD FUNCTION PWriteLAP(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY POpenSkt æT Function æFc AppleTalk.p æD FUNCTION POpenSkt(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PCloseSkt æT Function æFc AppleTalk.p æD FUNCTION PCloseSkt(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PWriteDDP æT Function æFc AppleTalk.p æD FUNCTION PWriteDDP(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PRegisterName æT Function æFc AppleTalk.p æD FUNCTION PRegisterName(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PLookupName æT Function æFc AppleTalk.p æD FUNCTION PLookupName(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PConfirmName æT Function æFc AppleTalk.p æD FUNCTION PConfirmName(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PRemoveName æT Function æFc AppleTalk.p æD FUNCTION PRemoveName(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PSetSelfSend æT Function æFc AppleTalk.p æD FUNCTION PSetSelfSend(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PKillNBP æT Function æFc AppleTalk.p æD FUNCTION PKillNBP(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PGetAppleTalkInfo æT Function æFc AppleTalk.p æD FUNCTION PGetAppleTalkInfo(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY PATalkClosePrep æT Function æFc AppleTalk.p æD FUNCTION PATalkClosePrep(thePBptr: MPPPBPtr;async: BOOLEAN): OSErr; æKY POpenATPSkt æT Function æFc AppleTalk.p æD FUNCTION POpenATPSkt(thePBptr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PCloseATPSkt æT Function æFc AppleTalk.p æD FUNCTION PCloseATPSkt(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PSendRequest æT Function æFc AppleTalk.p æD FUNCTION PSendRequest(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PGetRequest æT Function æFc AppleTalk.p æD FUNCTION PGetRequest(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PSendResponse æT Function æFc AppleTalk.p æD FUNCTION PSendResponse(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PAddResponse æT Function æFc AppleTalk.p æD FUNCTION PAddResponse(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PRelTCB æT Function æFc AppleTalk.p æD FUNCTION PRelTCB(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PRelRspCB æT Function æFc AppleTalk.p æD FUNCTION PRelRspCB(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PNSendRequest æT Function æFc AppleTalk.p æD FUNCTION PNSendRequest(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PKillSendReq æT Function æFc AppleTalk.p æD FUNCTION PKillSendReq(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY PKillGetReq æT Function æFc AppleTalk.p æD FUNCTION PKillGetReq(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY ATPKillAllGetReq æT Function æFc AppleTalk.p æD FUNCTION ATPKillAllGetReq(thePBPtr: ATPPBPtr;async: BOOLEAN): OSErr; æKY BuildLAPwds æT Function æFc AppleTalk.p æD PROCEDURE BuildLAPwds(wdsPtr: Ptr;dataPtr: Ptr;destHost: INTEGER;prototype: INTEGER; frameLen: INTEGER); æKY BuildDDPwds æT Function æFc AppleTalk.p æD PROCEDURE BuildDDPwds(wdsPtr: Ptr;headerPtr: Ptr;dataPtr: Ptr;netAddr: AddrBlock; ddpType: INTEGER;dataLen: INTEGER); æKY NBPSetEntity æT Function æFc AppleTalk.p æD PROCEDURE NBPSetEntity(buffer: Ptr;nbpObject: Str32;nbpType: Str32;nbpZone: Str32); æKY NBPSetNTE æT Function æFc AppleTalk.p æD PROCEDURE NBPSetNTE(ntePtr: Ptr;nbpObject: Str32;nbpType: Str32;nbpZone: Str32; socket: INTEGER); æKY GetBridgeAddress æT Function æFc AppleTalk.p æD FUNCTION GetBridgeAddress: INTEGER; æKY BuildBDS æT Function æFc AppleTalk.p æD FUNCTION BuildBDS(buffPtr: Ptr;bdsPtr: Ptr;buffSize: INTEGER): INTEGER; æKY MPPOpen æT Function æFc AppleTalk.p æD FUNCTION MPPOpen: OSErr; æKY MPPClose æT Function æFc AppleTalk.p æD FUNCTION MPPClose: OSErr; æKY LAPOpenProtocol æT Function æFc AppleTalk.p æD FUNCTION LAPOpenProtocol(theLAPType: ABByte;protoPtr: Ptr): OSErr; æKY LAPCloseProtocol æT Function æFc AppleTalk.p æD FUNCTION LAPCloseProtocol(theLAPType: ABByte): OSErr; æKY LAPWrite æT Function æFc AppleTalk.p æD FUNCTION LAPWrite(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY LAPRead æT Function æFc AppleTalk.p æD FUNCTION LAPRead(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY LAPRdCancel æT Function æFc AppleTalk.p æD FUNCTION LAPRdCancel(abRecord: ABRecHandle): OSErr; æKY LAPAddATQ æT Function æFc AppleTalk.p æD FUNCTION LAPAddATQ(theATQEntry: ATQEntryPtr): OSErr; æKY LAPRmvATQ æT Function æFc AppleTalk.p æD FUNCTION LAPRmvATQ(theATQEntry: ATQEntryPtr): OSErr; æKY DDPOpenSocket æT Function æFc AppleTalk.p æD FUNCTION DDPOpenSocket(VAR theSocket: INTEGER;sktListener: Ptr): OSErr; æKY DDPCloseSocket æT Function æFc AppleTalk.p æD FUNCTION DDPCloseSocket(theSocket: Byte): OSErr; æKY DDPRead æT Function æFc AppleTalk.p æD FUNCTION DDPRead(abRecord: ABRecHandle;retCksumErrs: BOOLEAN;async: BOOLEAN): OSErr; æKY DDPWrite æT Function æFc AppleTalk.p æD FUNCTION DDPWrite(abRecord: ABRecHandle;doChecksum: BOOLEAN;async: BOOLEAN): OSErr; æKY DDPRdCancel æT Function æFc AppleTalk.p æD FUNCTION DDPRdCancel(abRecord: ABRecHandle): OSErr; æKY ATPLoad æT Function æFc AppleTalk.p æD FUNCTION ATPLoad: OSErr; æKY ATPUnload æT Function æFc AppleTalk.p æD FUNCTION ATPUnload: OSErr; æKY ATPOpenSocket æT Function æFc AppleTalk.p æD FUNCTION ATPOpenSocket(addrRcvd: AddrBlock;VAR atpSocket: Byte): OSErr; æKY ATPCloseSocket æT Function æFc AppleTalk.p æD FUNCTION ATPCloseSocket(atpSocket: Byte): OSErr; æKY ATPSndRequest æT Function æFc AppleTalk.p æD FUNCTION ATPSndRequest(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY ATPRequest æT Function æFc AppleTalk.p æD FUNCTION ATPRequest(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY ATPReqCancel æT Function æFc AppleTalk.p æD FUNCTION ATPReqCancel(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY ATPGetRequest æT Function æFc AppleTalk.p æD FUNCTION ATPGetRequest(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY ATPSndRsp æT Function æFc AppleTalk.p æD FUNCTION ATPSndRsp(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY ATPAddRsp æT Function æFc AppleTalk.p æD FUNCTION ATPAddRsp(abRecord: ABRecHandle): OSErr; æKY ATPResponse æT Function æFc AppleTalk.p æD FUNCTION ATPResponse(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY ATPRspCancel æT Function æFc AppleTalk.p æD FUNCTION ATPRspCancel(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY NBPRegister æT Function æFc AppleTalk.p æD FUNCTION NBPRegister(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY NBPLookup æT Function æFc AppleTalk.p æD FUNCTION NBPLookup(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY NBPExtract æT Function æFc AppleTalk.p æD FUNCTION NBPExtract(theBuffer: Ptr;numInBuf: INTEGER;whichOne: INTEGER; VAR abEntity: EntityName;VAR address: AddrBlock): OSErr; æKY NBPConfirm æT Function æFc AppleTalk.p æD FUNCTION NBPConfirm(abRecord: ABRecHandle;async: BOOLEAN): OSErr; æKY NBPRemove æT Function æFc AppleTalk.p æD FUNCTION NBPRemove(abEntity: EntityPtr): OSErr; æKY NBPLoad æT Function æFc AppleTalk.p æD FUNCTION NBPLoad: OSErr; æKY NBPUnload æT Function æFc AppleTalk.p æD FUNCTION NBPUnload: OSErr; æKY GetNodeAddress æT Function æFc AppleTalk.p æD FUNCTION GetNodeAddress(VAR myNode: INTEGER;VAR myNet: INTEGER): OSErr; æKY IsMPPOpen æT Function æFc AppleTalk.p æD FUNCTION IsMPPOpen: BOOLEAN; æKY IsATPOpen æT Function æFc AppleTalk.p æD FUNCTION IsATPOpen: BOOLEAN; æKY ATEvent æT Function æFc AppleTalk.p æD PROCEDURE ATEvent(event: LONGINT;infoPtr: Ptr); æKY ATPreFlightEvent æT Function æFc AppleTalk.p æD FUNCTION ATPreFlightEvent(event: LONGINT;cancel: LONGINT;infoPtr: Ptr): OSErr; æKY Balloons.p æKL HMBalloonPict HMBalloonRect HMExtractHelpMsg HMGetBalloons HMGetBalloonWindow HMGetDialogResID HMGetFont HMGetFontSize HMGetHelpMenuHandle HMGetIndHelpMsg HMGetMenuResID HMIsBalloon HMRemoveBalloon HMScanTemplateItems HMSetBalloons HMSetDialogResID HMSetFont HMSetFontSize HMSetMenuResID HMShowBalloon HMShowMenuBalloon helpItem hmAbsoluteCoords hmBalloonAborted hmBalloonHelpVersion hmCloseViewActive hmDefaultOptions hmHelpDisabled hmHelpManagerNotInited hmMatchInTitle HMMessageRecord HMMessageRecPtr hmNoBalloonUp hmOperationUnsupported hmSameAsLastBalloon hmSaveBitsNoWindow hmSaveBitsWindow hmSkippedBalloon HMStringResType hmUnknownHelpType hmUseSubID hmWrongVersion kBalloonWDEFID kHMAboutHelpItem kHMCheckedItem kHMCompareItem kHMDialogResType kHMDisabledItem kHMEnabledItem kHMFinderApplResType kHMHelpID kHMHelpMenuID kHMMenuResType khmmPict khmmPictHandle khmmString khmmStringRes khmmSTRRes khmmTEHandle khmmTERes kHMNamedResourceItem kHMOtherItem kHMOverrideResType kHMPictItem kHMRectListResType kHMRegularWindow kHMSaveBitsNoWindow kHMSaveBitsWindow kHMShowBalloonsItem kHMSkipItem kHMStringItem kHMStringResItem kHMSTRResItem kHMTEResItem kHMTEStyleResType kHMTETextResType kHMTrackCntlItem kHMWindListResType æKY hmBalloonHelpVersion æT constant æFc Balloons.p æD hmBalloonHelpVersion = $0002; { The real version of the Help Manager } æKY hmHelpDisabled æT constant æFc Balloons.p æD hmHelpDisabled = -850; { Show Balloons mode was off, call to routine ignored } æKY hmBalloonAborted æT constant æFc Balloons.p æD hmBalloonAborted = -853; { Returned if mouse was moving or mouse wasn't in window port rect } æKY hmSameAsLastBalloon æT constant æFc Balloons.p æD hmSameAsLastBalloon = -854; { Returned from HMShowMenuBalloon if menu & item is same as last time } æKY hmHelpManagerNotInited æT constant æFc Balloons.p æD hmHelpManagerNotInited = -855; { Returned from HMGetHelpMenuHandle if help menu not setup } æKY hmSkippedBalloon æT constant æFc Balloons.p æD hmSkippedBalloon = -857; { Returned from calls if helpmsg specified a skip balloon } æKY hmWrongVersion æT constant æFc Balloons.p æD hmWrongVersion = -858; { Returned if help mgr resource was the wrong version } æKY hmUnknownHelpType æT constant æFc Balloons.p æD hmUnknownHelpType = -859; { Returned if help msg record contained a bad type } æKY hmOperationUnsupported æT constant æFc Balloons.p æD hmOperationUnsupported = -861; { Returned from HMShowBalloon call if bad method passed to routine } æKY hmNoBalloonUp æT constant æFc Balloons.p æD hmNoBalloonUp = -862; { Returned from HMRemoveBalloon if no balloon was visible when call was made } æKY hmCloseViewActive æT constant æFc Balloons.p æD hmCloseViewActive = -863; { Returned from HMRemoveBalloon if CloseView was active } æKY kHMHelpMenuID æT constant æFc Balloons.p æD kHMHelpMenuID = -16490; { Resource ID and menu ID of help menu } æKY kHMAboutHelpItem æT constant æFc Balloons.p æD kHMAboutHelpItem = 1; { help menu item number of About Balloon Help… } æKY kHMShowBalloonsItem æT constant æFc Balloons.p æD kHMShowBalloonsItem = 3; { help menu item number of Show/Hide Balloons } æKY kHMHelpID æT constant æFc Balloons.p æD kHMHelpID = -5696; { ID of various Help Mgr package resources (in Pack14 range) } æKY kBalloonWDEFID æT constant æFc Balloons.p æD kBalloonWDEFID = 126; { Resource ID of the WDEF proc used in standard balloons } æKY helpItem æT constant æFc Balloons.p æD helpItem = 1; { key value in DITL template that corresponds to the help item } æKY hmDefaultOptions æT constant æFc Balloons.p æD hmDefaultOptions = 0; { default options for help manager resources } æKY hmUseSubID æT constant æFc Balloons.p æD hmUseSubID = 1; { treat resID's in resources as subID's of driver base ID } æKY hmAbsoluteCoords æT constant æFc Balloons.p æD hmAbsoluteCoords = 2; { ignore window port origin and treat rectangles as absolute coords } æKY hmSaveBitsNoWindow æT constant æFc Balloons.p æD hmSaveBitsNoWindow = 4; { don't create a window, just blast bits on screen. No update event is generated } æKY hmSaveBitsWindow æT constant æFc Balloons.p æD hmSaveBitsWindow = 8; { create a window, but restore bits behind window when window goes away } æKY hmMatchInTitle æT constant æFc Balloons.p æD hmMatchInTitle = 16; { for hwin resources, match string anywhere in window title string } æKY kHMStringItem æT constant æFc Balloons.p æD kHMStringItem = 1; { pstring used in resource } æKY kHMPictItem æT constant æFc Balloons.p æD kHMPictItem = 2; { 'PICT' ResID used in resource } æKY kHMStringResItem æT constant æFc Balloons.p æD kHMStringResItem = 3; { 'STR#' ResID & index used in resource } æKY kHMTEResItem æT constant æFc Balloons.p æD kHMTEResItem = 6; { Styled Text Edit ResID used in resource ('TEXT' & 'styl') } æKY kHMSTRResItem æT constant æFc Balloons.p æD kHMSTRResItem = 7; { 'STR ' ResID used in resource } æKY kHMSkipItem æT constant æFc Balloons.p æD kHMSkipItem = 256; { don't display a balloon } æKY kHMCompareItem æT constant æFc Balloons.p æD kHMCompareItem = 512; { Compare pstring in menu item w/ PString in resource item } æKY kHMNamedResourceItem æT constant æFc Balloons.p æD kHMNamedResourceItem = 1024; { Use pstring in menu item to get 'STR#', 'PICT', or 'STR ' resource ('hmnu' only) } æKY kHMTrackCntlItem æT constant æFc Balloons.p æD kHMTrackCntlItem = 2048; { Reserved } æKY khmmString æT constant æFc Balloons.p æD khmmString = 1; { help message contains a PString } æKY khmmPict æT constant æFc Balloons.p æD khmmPict = 2; { help message contains a resource ID to a 'PICT' resource } æKY khmmStringRes æT constant æFc Balloons.p æD khmmStringRes = 3; { help message contains a res ID & index to a 'STR#' resource } æKY khmmTEHandle æT constant æFc Balloons.p æD khmmTEHandle = 4; { help message contains a Text Edit handle } æKY khmmPictHandle æT constant æFc Balloons.p æD khmmPictHandle = 5; { help message contains a Picture handle } æKY khmmTERes æT constant æFc Balloons.p æD khmmTERes = 6; { help message contains a res ID to 'TEXT' & 'styl' resources } æKY khmmSTRRes æT constant æFc Balloons.p æD khmmSTRRes = 7; { help message contains a res ID to a 'STR ' resource } æKY kHMTETextResType æT constant æFc Balloons.p æD kHMTETextResType = 'TEXT'; { Resource Type of text data for styled TE record w/o style info } æKY kHMTEStyleResType æT constant æFc Balloons.p æD kHMTEStyleResType = 'styl'; { Resource Type of style information for styled TE record } æKY kHMEnabledItem æT constant æFc Balloons.p æD kHMEnabledItem = 0; { item is enabled, but not checked or control value = 0 } æKY kHMDisabledItem æT constant æFc Balloons.p æD kHMDisabledItem = 1; { item is disabled, grayed in menus or disabled in dialogs } æKY kHMCheckedItem æT constant æFc Balloons.p æD kHMCheckedItem = 2; { item is enabled, and checked or control value = 1 } æKY kHMOtherItem æT constant æFc Balloons.p æD kHMOtherItem = 3; { item is enabled, and control value > 1 } æKY kHMMenuResType æT constant æFc Balloons.p æD kHMMenuResType = 'hmnu'; { ResType of help resource for supporting menus } æKY kHMDialogResType æT constant æFc Balloons.p æD kHMDialogResType = 'hdlg'; { ResType of help resource for supporting dialogs } æKY kHMWindListResType æT constant æFc Balloons.p æD kHMWindListResType = 'hwin'; { ResType of help resource for supporting windows } æKY kHMRectListResType æT constant æFc Balloons.p æD kHMRectListResType = 'hrct'; { ResType of help resource for rectangles in windows } æKY kHMOverrideResType æT constant æFc Balloons.p æD kHMOverrideResType = 'hovr'; { ResType of help resource for overriding system balloons } æKY kHMFinderApplResType æT constant æFc Balloons.p æD kHMFinderApplResType = 'hfdr'; { ResType of help resource for custom balloon in Finder } æKY kHMRegularWindow æT constant æFc Balloons.p æD kHMRegularWindow = 0; { Create a regular window floating above all windows } æKY kHMSaveBitsNoWindow æT constant æFc Balloons.p æD kHMSaveBitsNoWindow = 1; { Just save the bits and draw (for MDEF calls) } æKY kHMSaveBitsWindow æT constant æFc Balloons.p æD kHMSaveBitsWindow = 2; { Regular window, save bits behind, AND generate update event } æKY HMStringResType æT struct æFc Balloons.p æD HMStringResType = RECORD hmmResID: INTEGER; hmmIndex: INTEGER; END; æKY HMMessageRecord æT struct æFc Balloons.p æD HMMessageRecPtr = ^HMMessageRecord; HMMessageRecord = RECORD hmmHelpType : INTEGER; CASE INTEGER OF khmmString: (hmmString: STR255); khmmPict: (hmmPict: INTEGER); khmmStringRes: (hmmStringRes: HMStringResType); khmmTEHandle: (hmmTEHandle: TEHandle); khmmPictHandle: (hmmPictHandle: PicHandle); khmmTERes: (hmmTERes: INTEGER); khmmSTRRes: (hmmSTRRes: INTEGER); END; æKY HMGetHelpMenuHandle æT Function æFc Balloons.p æD FUNCTION HMGetHelpMenuHandle(VAR mh: MenuHandle): OSErr; INLINE $303C,$0200,_Pack14; æKY HMShowBalloon æT Function æFc Balloons.p æD FUNCTION HMShowBalloon(aHelpMsg: HMMessageRecord; tip: Point; alternateRect: RectPtr; tipProc: Ptr; theProc: INTEGER; variant: INTEGER; method: INTEGER): OSErr; INLINE $303C,$0B01,_Pack14; æKY HMRemoveBalloon æT Function æFc Balloons.p æD FUNCTION HMRemoveBalloon: OSErr; INLINE $303C,$0002,_Pack14; æKY HMGetBalloons æT Function æFc Balloons.p æD FUNCTION HMGetBalloons: BOOLEAN; INLINE $303C,$0003,_Pack14; æKY HMSetBalloons æT Function æFc Balloons.p æD FUNCTION HMSetBalloons(flag: BOOLEAN): OSErr; INLINE $303C,$0104,_Pack14; æKY HMShowMenuBalloon æT Function æFc Balloons.p æD FUNCTION HMShowMenuBalloon(itemNum: INTEGER; itemMenuID: INTEGER; itemFlags: LONGINT; itemReserved: LONGINT; tip: Point; alternateRect: RectPtr; tipProc: Ptr; theProc: INTEGER; variant: INTEGER): OSErr; INLINE $303C,$0E05,_Pack14; æKY HMGetIndHelpMsg æT Function æFc Balloons.p æD FUNCTION HMGetIndHelpMsg(whichType: ResType; whichResID: INTEGER; whichMsg: INTEGER; whichState: INTEGER; VAR options: LONGINT; VAR tip: Point; VAR altRect: Rect; VAR theProc: INTEGER; VAR variant: INTEGER; VAR aHelpMsg: HMMessageRecord; VAR count: INTEGER): OSErr; INLINE $303C,$1306,_Pack14; æKY HMIsBalloon æT Function æFc Balloons.p æD FUNCTION HMIsBalloon: BOOLEAN; INLINE $303C,$0007,_Pack14; æKY HMSetFont æT Function æFc Balloons.p æD FUNCTION HMSetFont(font: INTEGER): OSErr; INLINE $303C,$0108,_Pack14; æKY HMSetFontSize æT Function æFc Balloons.p æD FUNCTION HMSetFontSize(fontSize: INTEGER): OSErr; INLINE $303C,$0109,_Pack14; æKY HMGetFont æT Function æFc Balloons.p æD FUNCTION HMGetFont(VAR font: INTEGER): OSErr; INLINE $303C,$020A,_Pack14; æKY HMGetFontSize æT Function æFc Balloons.p æD FUNCTION HMGetFontSize(VAR fontSize: INTEGER): OSErr; INLINE $303C,$020B,_Pack14; æKY HMSetDialogResID æT Function æFc Balloons.p æD FUNCTION HMSetDialogResID(resID: INTEGER): OSErr; INLINE $303C,$010C,_Pack14; æKY HMSetMenuResID æT Function æFc Balloons.p æD FUNCTION HMSetMenuResID(menuID: INTEGER; resID: INTEGER): OSErr; INLINE $303C,$020D,_Pack14; æKY HMBalloonRect æT Function æFc Balloons.p æD FUNCTION HMBalloonRect(aHelpMsg: HMMessageRecord; VAR coolRect: Rect): OSErr; INLINE $303C,$040E,_Pack14; æKY HMBalloonPict æT Function æFc Balloons.p æD FUNCTION HMBalloonPict(aHelpMsg: HMMessageRecord; VAR coolPict: PicHandle): OSErr; INLINE $303C,$040F,_Pack14; æKY HMScanTemplateItems æT Function æFc Balloons.p æD FUNCTION HMScanTemplateItems(whichID: INTEGER; whichResFile: INTEGER; whichType: ResType): OSErr; INLINE $303C,$0410,_Pack14; æKY HMExtractHelpMsg æT Function æFc Balloons.p æD FUNCTION HMExtractHelpMsg(whichType: ResType;whichResID: INTEGER;whichMsg: INTEGER; whichState: INTEGER;VAR aHelpMsg: HMMessageRecord): OSErr; INLINE $303C,$0711,_Pack14; æKY HMGetDialogResID æT Function æFc Balloons.p æD FUNCTION HMGetDialogResID(VAR resID: INTEGER): OSErr; INLINE $303C,$0213,_Pack14; æKY HMGetMenuResID æT Function æFc Balloons.p æD FUNCTION HMGetMenuResID(menuID: INTEGER;VAR resID: INTEGER): OSErr; INLINE $303C,$0314,_Pack14; æKY HMGetBalloonWindow æT Function æFc Balloons.p æD FUNCTION HMGetBalloonWindow(VAR window: WindowPtr): OSErr; INLINE $303C,$0215,_Pack14; æKY Controls.p æKL DisposeControl DragControl Draw1Control DrawControls FindControl GetAuxCtl GetCRefCon GetCTitle GetCtlAction GetCtlMax GetCtlMin GetCtlValue GetCVariant GetNewControl HideControl HiliteControl KillControls MoveControl NewControl SetCRefCon SetCTitle SetCtlAction SetCtlColor SetCtlMax SetCtlMin SetCtlValue ShowControl SizeControl TestControl TrackControl UpdateControls UpdtControl autoTrack AuxCtlHandle AuxCtlPtr AuxCtlRec calcCntlRgn calcCRgns calcThumbRgn cBodyColor CCTabHandle CCTabPtr cFrameColor checkBoxProc ControlHandle ControlPtr ControlRecord cTextColor cThumbColor CtlCTab dispCntl dragCntl drawCntl hAxisOnly inButton inCheckBox inDownButton initCntl inPageDown inPageUp inThumb inUpButton noConstraint popupFixedWidth popupMenuCDEFproc popupMenuProc popupTitleBold popupTitleCenterJust popupTitleCondense popupTitleExtend popupTitleItalic popupTitleLeftJust popupTitleNoStyle popupTitleOutline popupTitleRightJust popupTitleShadow popupTitleUnderline popupUseAddResMenu popupUseWFont posCntl pushButProc radioButProc scrollBarProc testCntl thumbCntl useWFont vAxisOnly æKY pushButProc æT constant æFc Controls.p æD pushButProc = 0; æKY checkBoxProc æT constant æFc Controls.p æD checkBoxProc = 1; æKY radioButProc æT constant æFc Controls.p æD radioButProc = 2; æKY useWFont æT constant æFc Controls.p æD useWFont = 8; æKY scrollBarProc æT constant æFc Controls.p æD scrollBarProc = 16; æKY inButton æT constant æFc Controls.p æD inButton = 10; æKY inCheckBox æT constant æFc Controls.p æD inCheckBox = 11; æKY inUpButton æT constant æFc Controls.p æD inUpButton = 20; æKY inDownButton æT constant æFc Controls.p æD inDownButton = 21; æKY inPageUp æT constant æFc Controls.p æD inPageUp = 22; æKY inPageDown æT constant æFc Controls.p æD inPageDown = 23; æKY inThumb æT constant æFc Controls.p æD inThumb = 129; æKY popupMenuProc æT constant æFc Controls.p æD popupMenuProc = 1008; { 63 * 16 } æKY popupFixedWidth æT constant æFc Controls.p æD popupFixedWidth = $0001; { popup menu CDEF variation codes } æKY popupUseAddResMenu æT constant æFc Controls.p æD popupUseAddResMenu = $0004; æKY popupUseWFont æT constant æFc Controls.p æD popupUseWFont = $0008; æKY popupTitleBold æT constant æFc Controls.p æD popupTitleBold = $00000100; { Popup Title characteristics } æKY popupTitleItalic æT constant æFc Controls.p æD popupTitleItalic = $00000200; æKY popupTitleUnderline æT constant æFc Controls.p æD popupTitleUnderline = $00000400; æKY popupTitleOutline æT constant æFc Controls.p æD popupTitleOutline = $00000800; æKY popupTitleShadow æT constant æFc Controls.p æD popupTitleShadow = $00001000; æKY popupTitleCondense æT constant æFc Controls.p æD popupTitleCondense = $00002000; æKY popupTitleExtend æT constant æFc Controls.p æD popupTitleExtend = $00004000; æKY popupTitleNoStyle æT constant æFc Controls.p æD popupTitleNoStyle = $00008000; æKY popupTitleLeftJust æT constant æFc Controls.p æD popupTitleLeftJust = $00000000; æKY popupTitleCenterJust æT constant æFc Controls.p æD popupTitleCenterJust = $00000001; æKY popupTitleRightJust æT constant æFc Controls.p æD popupTitleRightJust = $000000FF; æKY noConstraint æT constant æFc Controls.p æD noConstraint = 0; æKY hAxisOnly æT constant æFc Controls.p æD hAxisOnly = 1; æKY vAxisOnly æT constant æFc Controls.p æD vAxisOnly = 2; æKY drawCntl æT constant æFc Controls.p æD drawCntl = 0; æKY testCntl æT constant æFc Controls.p æD testCntl = 1; æKY calcCRgns æT constant æFc Controls.p æD calcCRgns = 2; æKY initCntl æT constant æFc Controls.p æD initCntl = 3; æKY dispCntl æT constant æFc Controls.p æD dispCntl = 4; æKY posCntl æT constant æFc Controls.p æD posCntl = 5; æKY thumbCntl æT constant æFc Controls.p æD thumbCntl = 6; æKY dragCntl æT constant æFc Controls.p æD dragCntl = 7; æKY autoTrack æT constant æFc Controls.p æD autoTrack = 8; æKY calcCntlRgn æT constant æFc Controls.p æD calcCntlRgn = 10; æKY calcThumbRgn æT constant æFc Controls.p æD calcThumbRgn = 11; æKY cFrameColor æT constant æFc Controls.p æD cFrameColor = 0; æKY cBodyColor æT constant æFc Controls.p æD cBodyColor = 1; æKY cTextColor æT constant æFc Controls.p æD cTextColor = 2; æKY cThumbColor æT constant æFc Controls.p æD cThumbColor = 3; æKY popupMenuCDEFproc æT constant æFc Controls.p æD popupMenuCDEFproc = popupMenuProc; { synonym for compatibility } æKY ControlRecord æT struct æFc Controls.p æD ControlPtr = ^ControlRecord; ControlHandle = ^ControlPtr; ControlRecord = PACKED RECORD nextControl: ControlHandle; contrlOwner: WindowPtr; contrlRect: Rect; contrlVis: Byte; contrlHilite: Byte; contrlValue: INTEGER; contrlMin: INTEGER; contrlMax: INTEGER; contrlDefProc: Handle; contrlData: Handle; contrlAction: ProcPtr; contrlRfCon: LONGINT; contrlTitle: Str255; END; æKY CtlCTab æT struct æFc Controls.p æD CCTabPtr = ^CtlCTab; CCTabHandle = ^CCTabPtr; CtlCTab = RECORD ccSeed: LONGINT; {reserved} ccRider: INTEGER; {see what you have done - reserved} ctSize: INTEGER; {usually 3 for controls} ctTable: ARRAY [0..3] OF ColorSpec; END; æKY AuxCtlRec æT struct æFc Controls.p æD AuxCtlPtr = ^AuxCtlRec; AuxCtlHandle = ^AuxCtlPtr; AuxCtlRec = RECORD acNext: AuxCtlHandle; {handle to next AuxCtlRec} acOwner: ControlHandle; {handle for aux record's control} acCTable: CCTabHandle; {color table for this control} acFlags: INTEGER; {misc flag byte} acReserved: LONGINT; {reserved for use by Apple} acRefCon: LONGINT; {for use by application} END; æKY NewControl æT Function æFc Controls.p æD FUNCTION NewControl(theWindow: WindowPtr;boundsRect: Rect;title: Str255; visible: BOOLEAN;value: INTEGER;min: INTEGER;max: INTEGER;procID: INTEGER; refCon: LONGINT): ControlHandle; INLINE $A954; æKY SetCTitle æT Function æFc Controls.p æD PROCEDURE SetCTitle(theControl: ControlHandle;title: Str255); INLINE $A95F; æKY GetCTitle æT Function æFc Controls.p æD PROCEDURE GetCTitle(theControl: ControlHandle;VAR title: Str255); INLINE $A95E; æKY GetNewControl æT Function æFc Controls.p æD FUNCTION GetNewControl(controlID: INTEGER;owner: WindowPtr): ControlHandle; INLINE $A9BE; æKY DisposeControl æT Function æFc Controls.p æD PROCEDURE DisposeControl(theControl: ControlHandle); INLINE $A955; æKY KillControls æT Function æFc Controls.p æD PROCEDURE KillControls(theWindow: WindowPtr); INLINE $A956; æKY HideControl æT Function æFc Controls.p æD PROCEDURE HideControl(theControl: ControlHandle); INLINE $A958; æKY ShowControl æT Function æFc Controls.p æD PROCEDURE ShowControl(theControl: ControlHandle); INLINE $A957; æKY DrawControls æT Function æFc Controls.p æD PROCEDURE DrawControls(theWindow: WindowPtr); INLINE $A969; æKY Draw1Control æT Function æFc Controls.p æD PROCEDURE Draw1Control(theControl: ControlHandle); INLINE $A96D; æKY HiliteControl æT Function æFc Controls.p æD PROCEDURE HiliteControl(theControl: ControlHandle;hiliteState: INTEGER); INLINE $A95D; æKY UpdtControl æT Function æFc Controls.p æD PROCEDURE UpdtControl(theWindow: WindowPtr;updateRgn: RgnHandle); INLINE $A953; æKY UpdateControls æT Function æFc Controls.p æD PROCEDURE UpdateControls(theWindow: WindowPtr;updateRgn: RgnHandle); INLINE $A953; æKY MoveControl æT Function æFc Controls.p æD PROCEDURE MoveControl(theControl: ControlHandle;h: INTEGER;v: INTEGER); INLINE $A959; æKY SizeControl æT Function æFc Controls.p æD PROCEDURE SizeControl(theControl: ControlHandle;w: INTEGER;h: INTEGER); INLINE $A95C; æKY SetCtlValue æT Function æFc Controls.p æD PROCEDURE SetCtlValue(theControl: ControlHandle;theValue: INTEGER); INLINE $A963; æKY GetCtlValue æT Function æFc Controls.p æD FUNCTION GetCtlValue(theControl: ControlHandle): INTEGER; INLINE $A960; æKY SetCtlMin æT Function æFc Controls.p æD PROCEDURE SetCtlMin(theControl: ControlHandle;minValue: INTEGER); INLINE $A964; æKY GetCtlMin æT Function æFc Controls.p æD FUNCTION GetCtlMin(theControl: ControlHandle): INTEGER; INLINE $A961; æKY SetCtlMax æT Function æFc Controls.p æD PROCEDURE SetCtlMax(theControl: ControlHandle;maxValue: INTEGER); INLINE $A965; æKY GetCtlMax æT Function æFc Controls.p æD FUNCTION GetCtlMax(theControl: ControlHandle): INTEGER; INLINE $A962; æKY SetCRefCon æT Function æFc Controls.p æD PROCEDURE SetCRefCon(theControl: ControlHandle;data: LONGINT); INLINE $A95B; æKY GetCRefCon æT Function æFc Controls.p æD FUNCTION GetCRefCon(theControl: ControlHandle): LONGINT; INLINE $A95A; æKY SetCtlAction æT Function æFc Controls.p æD PROCEDURE SetCtlAction(theControl: ControlHandle;actionProc: ProcPtr); INLINE $A96B; æKY GetCtlAction æT Function æFc Controls.p æD FUNCTION GetCtlAction(theControl: ControlHandle): ProcPtr; INLINE $A96A; æKY DragControl æT Function æFc Controls.p æD PROCEDURE DragControl(theControl: ControlHandle;startPt: Point;limitRect: Rect; slopRect: Rect;axis: INTEGER); INLINE $A967; æKY TestControl æT Function æFc Controls.p æD FUNCTION TestControl(theControl: ControlHandle;thePt: Point): INTEGER; INLINE $A966; æKY TrackControl æT Function æFc Controls.p æD FUNCTION TrackControl(theControl: ControlHandle;thePoint: Point;actionProc: ProcPtr): INTEGER; INLINE $A968; æKY FindControl æT Function æFc Controls.p æD FUNCTION FindControl(thePoint: Point;theWindow: WindowPtr;VAR theControl: ControlHandle): INTEGER; INLINE $A96C; æKY SetCtlColor æT Function æFc Controls.p æD PROCEDURE SetCtlColor(theControl: ControlHandle;newColorTable: CCTabHandle); INLINE $AA43; æKY GetAuxCtl æT Function æFc Controls.p æD FUNCTION GetAuxCtl(theControl: ControlHandle;VAR acHndl: AuxCtlHandle): BOOLEAN; INLINE $AA44; æKY GetCVariant æT Function æFc Controls.p æD FUNCTION GetCVariant(theControl: ControlHandle): INTEGER; INLINE $A809; æKY Desk.p æKL CloseDeskAcc OpenDeskAcc SystemClick SystemEdit SystemEvent SystemMenu SystemTask accClear accCopy accCursor accCut accEvent accMenu accPaste accRun accUndo goodbye æKY accEvent æT constant æFc Desk.p æD accEvent = 64; æKY accRun æT constant æFc Desk.p æD accRun = 65; æKY accCursor æT constant æFc Desk.p æD accCursor = 66; æKY accMenu æT constant æFc Desk.p æD accMenu = 67; æKY accUndo æT constant æFc Desk.p æD accUndo = 68; æKY accCut æT constant æFc Desk.p æD accCut = 70; æKY accCopy æT constant æFc Desk.p æD accCopy = 71; æKY accPaste æT constant æFc Desk.p æD accPaste = 72; æKY accClear æT constant æFc Desk.p æD accClear = 73; æKY goodbye æT constant æFc Desk.p æD goodbye = -1; {goodbye message} æKY OpenDeskAcc æT Function æFc Desk.p æD FUNCTION OpenDeskAcc(deskAccName: Str255): INTEGER; INLINE $A9B6; æKY CloseDeskAcc æT Function æFc Desk.p æD PROCEDURE CloseDeskAcc(refNum: INTEGER); INLINE $A9B7; æKY SystemClick æT Function æFc Desk.p æD PROCEDURE SystemClick(theEvent: EventRecord;theWindow: WindowPtr); INLINE $A9B3; æKY SystemEdit æT Function æFc Desk.p æD FUNCTION SystemEdit(editCmd: INTEGER): BOOLEAN; INLINE $A9C2; æKY SystemTask æT Function æFc Desk.p æD PROCEDURE SystemTask; INLINE $A9B4; æKY SystemEvent æT Function æFc Desk.p æD FUNCTION SystemEvent(theEvent: EventRecord): BOOLEAN; INLINE $A9B2; æKY SystemMenu æT Function æFc Desk.p æD PROCEDURE SystemMenu(menuResult: LONGINT); INLINE $A9B5; æKY DeskBus.p æKL ADBOp ADBReInit CountADBs GetADBInfo GetIndADB SetADBInfo ADBAddress ADBDataBlock ADBDBlkPtr ADBOpBlock ADBOpBPtr ADBSetInfoBlock ADBSInfoPtr æKY ADBOpBlock æT struct æFc DeskBus.p æD ADBOpBPtr = ^ADBOpBlock; ADBOpBlock = RECORD dataBuffPtr: Ptr; {address of data buffer} opServiceRtPtr: Ptr; {service routine pointer} opDataAreaPtr: Ptr; {optional data area address} END; æKY ADBDataBlock æT struct æFc DeskBus.p æD ADBDBlkPtr = ^ADBDataBlock; ADBDataBlock = PACKED RECORD devType: SignedByte; {device type} origADBAddr: SignedByte; {original ADB Address} dbServiceRtPtr: Ptr; {service routine pointer} dbDataAreaAddr: Ptr; {data area address} END; æKY ADBSetInfoBlock æT struct æFc DeskBus.p æD ADBSInfoPtr = ^ADBSetInfoBlock; ADBSetInfoBlock = RECORD siServiceRtPtr: Ptr; {service routine pointer} siDataAreaAddr: Ptr; {data area address} END; æKY ADBAddress æT union æFc DeskBus.p æD ADBAddress = SignedByte; æKY ADBReInit æT Function æFc DeskBus.p æD PROCEDURE ADBReInit; INLINE $A07B; æKY ADBOp æT Function æFc DeskBus.p æD FUNCTION ADBOp(data: Ptr;compRout: ProcPtr;buffer: Ptr;commandNum: INTEGER): OSErr; æKY CountADBs æT Function æFc DeskBus.p æD FUNCTION CountADBs: INTEGER; INLINE $A077,$3E80; æKY GetIndADB æT Function æFc DeskBus.p æD FUNCTION GetIndADB(VAR info: ADBDataBlock;devTableIndex: INTEGER): ADBAddress; æKY GetADBInfo æT Function æFc DeskBus.p æD FUNCTION GetADBInfo(VAR info: ADBDataBlock;adbAddr: ADBAddress): OSErr; æKY SetADBInfo æT Function æFc DeskBus.p æD FUNCTION SetADBInfo(VAR info: ADBSetInfoBlock;adbAddr: ADBAddress): OSErr; æKY Devices.p æKL CloseDriver Control GetDCtlEntry KillIO OpenDriver PBControl PBControlAsync PBControlSync PBKillIO PBKillIOAsync PBKillIOSync PBStatus PBStatusAsync PBStatusSync SetChooserAlert Status activateMsg activDev AuxDCE AuxDCEHandle AuxDCEPtr buttonMsg cancelMsg cdevGenErr cdevMemErr cdevResErr cdevUnset chooserID clearDev closeDev copyDev cursorDev cutDev DCtlEntry DCtlHandle DCtlPtr deactivateMsg deactivDev deselectMsg fillListMsg getSelMsg hitDev hitMsg initDev initMsg keyEvtDev keyEvtMsg macDev newSelMsg normalMsg nulDev nulMsg okMsg pasteDev selectMsg startupMsg superMsg terminateMsg undoDev updateDev updateMsg æKY newSelMsg æT constant æFc Devices.p æD newSelMsg = 12; æKY fillListMsg æT constant æFc Devices.p æD fillListMsg = 13; æKY getSelMsg æT constant æFc Devices.p æD getSelMsg = 14; æKY selectMsg æT constant æFc Devices.p æD selectMsg = 15; æKY deselectMsg æT constant æFc Devices.p æD deselectMsg = 16; æKY terminateMsg æT constant æFc Devices.p æD terminateMsg = 17; æKY buttonMsg æT constant æFc Devices.p æD buttonMsg = 19; æKY chooserID æT constant æFc Devices.p æD chooserID = 1; æKY initDev æT constant æFc Devices.p æD initDev = 0; {Time for cdev to initialize itself} æKY hitDev æT constant æFc Devices.p æD hitDev = 1; {Hit on one of my items} æKY closeDev æT constant æFc Devices.p æD closeDev = 2; {Close yourself} æKY nulDev æT constant æFc Devices.p æD nulDev = 3; {Null event} æKY updateDev æT constant æFc Devices.p æD updateDev = 4; {Update event} æKY activDev æT constant æFc Devices.p æD activDev = 5; {Activate event} æKY deactivDev æT constant æFc Devices.p æD deactivDev = 6; {Deactivate event} æKY keyEvtDev æT constant æFc Devices.p æD keyEvtDev = 7; {Key down/auto key} æKY macDev æT constant æFc Devices.p æD macDev = 8; {Decide whether or not to show up} æKY undoDev æT constant æFc Devices.p æD undoDev = 9; æKY cutDev æT constant æFc Devices.p æD cutDev = 10; æKY copyDev æT constant æFc Devices.p æD copyDev = 11; æKY pasteDev æT constant æFc Devices.p æD pasteDev = 12; æKY clearDev æT constant æFc Devices.p æD clearDev = 13; æKY cursorDev æT constant æFc Devices.p æD cursorDev = 14; æKY cdevGenErr æT constant æFc Devices.p æD cdevGenErr = -1; {General error; gray cdev w/o alert} æKY cdevMemErr æT constant æFc Devices.p æD cdevMemErr = 0; {Memory shortfall; alert user please} æKY cdevResErr æT constant æFc Devices.p æD cdevResErr = 1; {Couldn't get a needed resource; alert} æKY cdevUnset æT constant æFc Devices.p æD cdevUnset = 3; { cdevValue is initialized to this} æKY initMsg æT constant æFc Devices.p æD initMsg = 1; {initialization} æKY okMsg æT constant æFc Devices.p æD okMsg = 2; {user clicked OK button} æKY cancelMsg æT constant æFc Devices.p æD cancelMsg = 3; {user clicked Cancel button} æKY hitMsg æT constant æFc Devices.p æD hitMsg = 4; {user clicked control in Options dialog} æKY nulMsg æT constant æFc Devices.p æD nulMsg = 5; {periodic event} æKY updateMsg æT constant æFc Devices.p æD updateMsg = 6; {update event} æKY activateMsg æT constant æFc Devices.p æD activateMsg = 7; {not used} æKY deactivateMsg æT constant æFc Devices.p æD deactivateMsg = 8; {not used} æKY keyEvtMsg æT constant æFc Devices.p æD keyEvtMsg = 9; {keyboard event} æKY superMsg æT constant æFc Devices.p æD superMsg = 10; {show superuser controls} æKY normalMsg æT constant æFc Devices.p æD normalMsg = 11; {show only normal controls} æKY startupMsg æT constant æFc Devices.p æD startupMsg = 12; {code has been loaded} æKY DCtlEntry æT struct æFc Devices.p æD DCtlPtr = ^DCtlEntry; DCtlHandle = ^DCtlPtr; DCtlEntry = RECORD dCtlDriver: Ptr; dCtlFlags: INTEGER; dCtlQHdr: QHdr; dCtlPosition: LONGINT; dCtlStorage: Handle; dCtlRefNum: INTEGER; dCtlCurTicks: LONGINT; dCtlWindow: WindowPtr; dCtlDelay: INTEGER; dCtlEMask: INTEGER; dCtlMenu: INTEGER; END; æKY AuxDCE æT struct æFc Devices.p æD AuxDCEPtr = ^AuxDCE; AuxDCEHandle = ^AuxDCEPtr; AuxDCE = PACKED RECORD dCtlDriver: Ptr; dCtlFlags: INTEGER; dCtlQHdr: QHdr; dCtlPosition: LONGINT; dCtlStorage: Handle; dCtlRefNum: INTEGER; dCtlCurTicks: LONGINT; dCtlWindow: GrafPtr; dCtlDelay: INTEGER; dCtlEMask: INTEGER; dCtlMenu: INTEGER; dCtlSlot: Byte; dCtlSlotId: Byte; dCtlDevBase: LONGINT; dCtlOwner: Ptr; dCtlExtDev: Byte; fillByte: Byte; END; æKY GetDCtlEntry æT Function æFc Devices.p æD FUNCTION GetDCtlEntry(refNum: INTEGER): DCtlHandle; æKY SetChooserAlert æT Function æFc Devices.p æD FUNCTION SetChooserAlert(f: BOOLEAN): BOOLEAN; æKY OpenDriver æT Function æFc Devices.p æD FUNCTION OpenDriver(name: Str255;VAR drvrRefNum: INTEGER): OSErr; æKY CloseDriver æT Function æFc Devices.p æD FUNCTION CloseDriver(refNum: INTEGER): OSErr; æKY Control æT Function æFc Devices.p æD FUNCTION Control(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr; æKY Status æT Function æFc Devices.p æD FUNCTION Status(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr; æKY KillIO æT Function æFc Devices.p æD FUNCTION KillIO(refNum: INTEGER): OSErr; æKY PBControl æT Function æFc Devices.p æD FUNCTION PBControl(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBControlSync æT Function æFc Devices.p æD FUNCTION PBControlSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A004,$3E80; æKY PBControlAsync æT Function æFc Devices.p æD FUNCTION PBControlAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A404,$3E80; æKY PBStatus æT Function æFc Devices.p æD FUNCTION PBStatus(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBStatusSync æT Function æFc Devices.p æD FUNCTION PBStatusSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A005,$3E80; æKY PBStatusAsync æT Function æFc Devices.p æD FUNCTION PBStatusAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A405,$3E80; æKY PBKillIO æT Function æFc Devices.p æD FUNCTION PBKillIO(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBKillIOSync æT Function æFc Devices.p æD FUNCTION PBKillIOSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A006,$3E80; æKY PBKillIOAsync æT Function æFc Devices.p æD FUNCTION PBKillIOAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A406,$3E80; æKY Dialogs.p æKL Alert CautionAlert CloseDialog CouldAlert CouldDialog DialogSelect DisposDialog DisposeDialog DlgCopy DlgCut DlgDelete DlgPaste DrawDialog ErrorSound FindDItem FreeAlert FreeDialog GetAlrtStage GetDItem GetIText GetNewDialog HideDItem InitDialogs IsDialogEvent ModalDialog NewCDialog NewDialog NoteAlert ParamText ResetAlrtStage SelIText SetDAFont SetDItem SetIText ShowDItem StopAlert UpdateDialog UpdtDialog AlertTemplate AlertTHndl AlertTPtr btnCtrl cancel cautionIcon chkCtrl ctrlItem DialogPeek DialogPtr DialogRecord DialogTemplate DialogTHndl DialogTPtr editText iconItem itemDisable ModalFilterProcPtr noteIcon ok picItem radCtrl resCtrl ResumeProcPtr SoundProcPtr StageList statText stopIcon userItem æKY ctrlItem æT constant æFc Dialogs.p æD ctrlItem = 4; æKY btnCtrl æT constant æFc Dialogs.p æD btnCtrl = 0; æKY chkCtrl æT constant æFc Dialogs.p æD chkCtrl = 1; æKY radCtrl æT constant æFc Dialogs.p æD radCtrl = 2; æKY resCtrl æT constant æFc Dialogs.p æD resCtrl = 3; æKY statText æT constant æFc Dialogs.p æD statText = 8; æKY editText æT constant æFc Dialogs.p æD editText = 16; æKY iconItem æT constant æFc Dialogs.p æD iconItem = 32; æKY picItem æT constant æFc Dialogs.p æD picItem = 64; æKY userItem æT constant æFc Dialogs.p æD userItem = 0; æKY itemDisable æT constant æFc Dialogs.p æD itemDisable = 128; æKY ok æT constant æFc Dialogs.p æD ok = 1; æKY cancel æT constant æFc Dialogs.p æD cancel = 2; æKY stopIcon æT constant æFc Dialogs.p æD stopIcon = 0; æKY noteIcon æT constant æFc Dialogs.p æD noteIcon = 1; æKY cautionIcon æT constant æFc Dialogs.p æD cautionIcon = 2; æKY ResumeProcPtr æT typedef æFc Dialogs.p æD ResumeProcPtr = ProcPtr; { PROCEDURE Resume; } æKY SoundProcPtr æT typedef æFc Dialogs.p æD SoundProcPtr = ProcPtr; { PROCEDURE DoSound; } æKY ModalFilterProcPtr æT typedef æFc Dialogs.p æD ModalFilterProcPtr = ProcPtr; { FUNCTION Filter(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER): BOOLEAN; } æKY DialogRecord æT struct æFc Dialogs.p æD DialogPeek = ^DialogRecord; DialogRecord = RECORD window: WindowRecord; items: Handle; textH: TEHandle; editField: INTEGER; editOpen: INTEGER; aDefItem: INTEGER; END; æKY DialogPtr æT union æFc Dialogs.p æD DialogPtr = WindowPtr; æKY DialogTemplate æT struct æFc Dialogs.p æD DialogTPtr = ^DialogTemplate; DialogTHndl = ^DialogTPtr; DialogTemplate = RECORD boundsRect: Rect; procID: INTEGER; visible: BOOLEAN; filler1: BOOLEAN; goAwayFlag: BOOLEAN; filler2: BOOLEAN; refCon: LONGINT; itemsID: INTEGER; title: Str255; END; æKY StageList æT struct æFc Dialogs.p æD StageList = PACKED RECORD boldItm4: 0..1; {default button item number - 1} boxDrwn4: BOOLEAN; {true if alert box to be drawn} sound4: 0..3; {sound number} boldItm3: 0..1; boxDrwn3: BOOLEAN; sound3: 0..3; boldItm2: 0..1; boxDrwn2: BOOLEAN; sound2: 0..3; boldItm1: 0..1; boxDrwn1: BOOLEAN; sound1: 0..3; END; æKY AlertTemplate æT struct æFc Dialogs.p æD AlertTPtr = ^AlertTemplate; AlertTHndl = ^AlertTPtr; AlertTemplate = RECORD boundsRect: Rect; itemsID: INTEGER; stages: StageList; END; æKY InitDialogs æT Function æFc Dialogs.p æD PROCEDURE InitDialogs(resumeProc: ResumeProcPtr); INLINE $A97B; æKY ErrorSound æT Function æFc Dialogs.p æD PROCEDURE ErrorSound(soundProc: SoundProcPtr); INLINE $A98C; æKY NewDialog æT Function æFc Dialogs.p æD FUNCTION NewDialog(wStorage: Ptr;boundsRect: Rect;title: Str255;visible: BOOLEAN; procID: INTEGER;behind: WindowPtr;goAwayFlag: BOOLEAN;refCon: LONGINT; itmLstHndl: Handle): DialogPtr; INLINE $A97D; æKY GetNewDialog æT Function æFc Dialogs.p æD FUNCTION GetNewDialog(dialogID: INTEGER;dStorage: Ptr;behind: WindowPtr): DialogPtr; INLINE $A97C; æKY CloseDialog æT Function æFc Dialogs.p æD PROCEDURE CloseDialog(theDialog: DialogPtr); INLINE $A982; æKY DisposDialog æT Function æFc Dialogs.p æD PROCEDURE DisposDialog(theDialog: DialogPtr); INLINE $A983; æKY DisposeDialog æT Function æFc Dialogs.p æD PROCEDURE DisposeDialog(theDialog: DialogPtr); INLINE $A983; æKY CouldDialog æT Function æFc Dialogs.p æD PROCEDURE CouldDialog(dialogID: INTEGER); INLINE $A979; æKY FreeDialog æT Function æFc Dialogs.p æD PROCEDURE FreeDialog(dialogID: INTEGER); INLINE $A97A; æKY ParamText æT Function æFc Dialogs.p æD PROCEDURE ParamText(param0: Str255;param1: Str255;param2: Str255;param3: Str255); INLINE $A98B; æKY ModalDialog æT Function æFc Dialogs.p æD PROCEDURE ModalDialog(filterProc: ModalFilterProcPtr;VAR itemHit: INTEGER); INLINE $A991; æKY IsDialogEvent æT Function æFc Dialogs.p æD FUNCTION IsDialogEvent(theEvent: EventRecord): BOOLEAN; INLINE $A97F; æKY DialogSelect æT Function æFc Dialogs.p æD FUNCTION DialogSelect(theEvent: EventRecord;VAR theDialog: DialogPtr;VAR itemHit: INTEGER): BOOLEAN; INLINE $A980; æKY DrawDialog æT Function æFc Dialogs.p æD PROCEDURE DrawDialog(theDialog: DialogPtr); INLINE $A981; æKY UpdtDialog æT Function æFc Dialogs.p æD PROCEDURE UpdtDialog(theDialog: DialogPtr;updateRgn: RgnHandle); INLINE $A978; æKY UpdateDialog æT Function æFc Dialogs.p æD PROCEDURE UpdateDialog(theDialog: DialogPtr;updateRgn: RgnHandle); INLINE $A978; æKY Alert æT Function æFc Dialogs.p æD FUNCTION Alert(alertID: INTEGER;filterProc: ModalFilterProcPtr): INTEGER; INLINE $A985; æKY StopAlert æT Function æFc Dialogs.p æD FUNCTION StopAlert(alertID: INTEGER;filterProc: ModalFilterProcPtr): INTEGER; INLINE $A986; æKY NoteAlert æT Function æFc Dialogs.p æD FUNCTION NoteAlert(alertID: INTEGER;filterProc: ModalFilterProcPtr): INTEGER; INLINE $A987; æKY CautionAlert æT Function æFc Dialogs.p æD FUNCTION CautionAlert(alertID: INTEGER;filterProc: ModalFilterProcPtr): INTEGER; INLINE $A988; æKY CouldAlert æT Function æFc Dialogs.p æD PROCEDURE CouldAlert(alertID: INTEGER); INLINE $A989; æKY FreeAlert æT Function æFc Dialogs.p æD PROCEDURE FreeAlert(alertID: INTEGER); INLINE $A98A; æKY GetDItem æT Function æFc Dialogs.p æD PROCEDURE GetDItem(theDialog: DialogPtr;itemNo: INTEGER;VAR itemType: INTEGER; VAR item: Handle;VAR box: Rect); INLINE $A98D; æKY SetDItem æT Function æFc Dialogs.p æD PROCEDURE SetDItem(theDialog: DialogPtr;itemNo: INTEGER;itemType: INTEGER; item: Handle;box: Rect); INLINE $A98E; æKY HideDItem æT Function æFc Dialogs.p æD PROCEDURE HideDItem(theDialog: DialogPtr;itemNo: INTEGER); INLINE $A827; æKY ShowDItem æT Function æFc Dialogs.p æD PROCEDURE ShowDItem(theDialog: DialogPtr;itemNo: INTEGER); INLINE $A828; æKY SelIText æT Function æFc Dialogs.p æD PROCEDURE SelIText(theDialog: DialogPtr;itemNo: INTEGER;strtSel: INTEGER; endSel: INTEGER); INLINE $A97E; æKY GetIText æT Function æFc Dialogs.p æD PROCEDURE GetIText(item: Handle;VAR text: Str255); INLINE $A990; æKY SetIText æT Function æFc Dialogs.p æD PROCEDURE SetIText(item: Handle;text: Str255); INLINE $A98F; æKY FindDItem æT Function æFc Dialogs.p æD FUNCTION FindDItem(theDialog: DialogPtr;thePt: Point): INTEGER; INLINE $A984; æKY NewCDialog æT Function æFc Dialogs.p æD FUNCTION NewCDialog(dStorage: Ptr;boundsRect: Rect;title: Str255;visible: BOOLEAN; procID: INTEGER;behind: WindowPtr;goAwayFlag: BOOLEAN;refCon: LONGINT; items: Handle): DialogPtr; INLINE $AA4B; æKY GetAlrtStage æT Function æFc Dialogs.p æD FUNCTION GetAlrtStage: INTEGER; INLINE $3EB8,$0A9A; æKY ResetAlrtStage æT Function æFc Dialogs.p æD PROCEDURE ResetAlrtStage; INLINE $4278,$0A9A; æKY DlgCut æT Function æFc Dialogs.p æD PROCEDURE DlgCut(theDialog: DialogPtr); æKY DlgPaste æT Function æFc Dialogs.p æD PROCEDURE DlgPaste(theDialog: DialogPtr); æKY DlgCopy æT Function æFc Dialogs.p æD PROCEDURE DlgCopy(theDialog: DialogPtr); æKY DlgDelete æT Function æFc Dialogs.p æD PROCEDURE DlgDelete(theDialog: DialogPtr); æKY SetDAFont æT Function æFc Dialogs.p æD PROCEDURE SetDAFont(fontNum: INTEGER); INLINE $31DF,$0AFA; æKY DiskInit.p æKL DIBadMount DIFormat DILoad DIUnload DIVerify DIZero HFSDefaults æKY HFSDefaults æT struct æFc DiskInit.p æD HFSDefaults = RECORD sigWord: PACKED ARRAY [0..1] OF Byte; { signature word} abSize: LONGINT; { allocation block size in bytes} clpSize: LONGINT; { clump size in bytes} nxFreeFN: LONGINT; { next free file number} btClpSize: LONGINT; { B-Tree clump size in bytes} rsrv1: INTEGER; { reserved} rsrv2: INTEGER; { reserved} rsrv3: INTEGER; { reserved} END; æKY DILoad æT Function æFc DiskInit.p æD PROCEDURE DILoad; æKY DIUnload æT Function æFc DiskInit.p æD PROCEDURE DIUnload; æKY DIBadMount æT Function æFc DiskInit.p æD FUNCTION DIBadMount(where: Point;evtMessage: LONGINT): INTEGER; æKY DIFormat æT Function æFc DiskInit.p æD FUNCTION DIFormat(drvNum: INTEGER): OSErr; æKY DIVerify æT Function æFc DiskInit.p æD FUNCTION DIVerify(drvNum: INTEGER): OSErr; æKY DIZero æT Function æFc DiskInit.p æD FUNCTION DIZero(drvNum: INTEGER;volName: Str255): OSErr; æKY Disks.p æKL DiskEject DriveStatus SetTagBuffer DriveKind DrvSts hard20 sony æKY DriveKind sony hard20 æT enum æFc Disks.p æD DriveKind = (sony,hard20); æKY DrvSts æT struct æFc Disks.p æD DrvSts = RECORD track: INTEGER; {current track} writeProt: SignedByte; {bit 7 = 1 if volume is locked} diskInPlace: SignedByte; {disk in drive} installed: SignedByte; {drive installed} sides: SignedByte; {-1 for 2-sided, 0 for 1-sided} driveQLink: QElemPtr; {next queue entry} driveQVers: INTEGER; {1 for HD20} dQDrive: INTEGER; {drive number} dQRefNum: INTEGER; {driver reference number} dQFSID: INTEGER; {file system ID} CASE DriveKind OF sony: (twoSideFmt: SignedByte; {after 1st rd/wrt: 0=1 side, -1=2 side} needsFlush: SignedByte; {-1 for MacPlus drive} diskErrs: INTEGER); {soft error count} hard20: (driveSize: INTEGER; {drive block size low word} driveS1: INTEGER; {drive block size high word} driveType: INTEGER; {1 for HD20} driveManf: INTEGER; {1 for Apple Computer, Inc.} driveChar: SignedByte; {230 ($E6) for HD20} driveMisc: SignedByte); {0 -- reserved} END; æKY DiskEject æT Function æFc Disks.p æD FUNCTION DiskEject(drvNum: INTEGER): OSErr; æKY SetTagBuffer æT Function æFc Disks.p æD FUNCTION SetTagBuffer(buffPtr: Ptr): OSErr; æKY DriveStatus æT Function æFc Disks.p æD FUNCTION DriveStatus(drvNum: INTEGER;VAR status: DrvSts): OSErr; æKY Editions.p æKL AssociateSection CallEditionOpenerProc CallFormatIOProc CloseEdition CreateEditionContainerFile DeleteEditionContainerFile EditionHasFormat GetEditionFormatMark GetEditionInfo GetEditionOpenerProc GetLastEditionContainerUsed GetStandardFormats GoToPublisherSection InitEditionPack IsRegisteredSection NewPublisherDialog NewPublisherExpDialog NewSection NewSubscriberDialog NewSubscriberExpDialog OpenEdition OpenNewEdition ReadEdition RegisterSection SectionOptionsDialog SectionOptionsExpDialog SetEditionFormatMark SetEditionOpenerProc UnRegisterSection WriteEdition EditionContainerSpec EditionContainerSpecPtr EditionInfoRecord EditionOpenerParamBlock EditionOpenerProcPtr EditionOpenerVerb EditionRefNum emCancelSectionDialogRefCon emGoToPubErrDialogRefCon emHookAutoUpdateMode emHookCancelSection emHookGetEditionNow emHookGoToPublisher emHookManualUpdateMode emHookRedrawPreview emHookSendEditionNow emOptionsDialogRefCon eoCanSubscribe eoClose eoCloseNew eoOpen eoOpenNew ExpDlgHookProcPtr ExpModalFilterProcPtr FormatIOParamBlock FormatIOProcPtr FormatIOVerb FormatType ioHasFormat ioNewFormat ioReadFormat ioWriteFormat kFormatLengthUnknown kFormatListFormat kPartNumberUnknown kPartsNotUsed kPICTEditionFileType kPICTformatMask kPreviewFormat kPreviewHeight kPreviewWidth kPublisherDocAliasFormat ksndEditionFileType ksndFormatMask kTEXTEditionFileType kTEXTformatMask kUnknownEditionFileType NewPublisherReply NewSubscriberReply pumManual pumOnSave rSectionType sectionCancelMsgID sectionEventMsgClass SectionHandle SectionOptionsReply SectionPtr sectionReadMsgID SectionRecord sectionScrollMsgID SectionType sectionWriteMsgID stPublisher stSubscriber sumAutomatic sumManual TimeStamp UpdateMode æKY rSectionType æT constant æFc Editions.p æD rSectionType = 'sect'; { ResType of saved SectionRecords } æKY stSubscriber æT constant æFc Editions.p æD stSubscriber = $01; æKY stPublisher æT constant æFc Editions.p æD stPublisher = $0A; æKY sumAutomatic æT constant æFc Editions.p æD sumAutomatic = 0; { subscriber update mode - Automatically } æKY sumManual æT constant æFc Editions.p æD sumManual = 1; { subscriber update mode - Manually } æKY pumOnSave æT constant æFc Editions.p æD pumOnSave = 0; { publisher update mode - OnSave } æKY pumManual æT constant æFc Editions.p æD pumManual = 1; { publisher update mode - Manually } æKY kPartsNotUsed æT constant æFc Editions.p æD kPartsNotUsed = 0; æKY kPartNumberUnknown æT constant æFc Editions.p æD kPartNumberUnknown = -1; { misc } æKY kPreviewWidth æT constant æFc Editions.p æD kPreviewWidth = 120; æKY kPreviewHeight æT constant æFc Editions.p æD kPreviewHeight = 120; æKY kPublisherDocAliasFormat æT constant æFc Editions.p æD kPublisherDocAliasFormat = 'alis'; æKY kPreviewFormat æT constant æFc Editions.p æD kPreviewFormat = 'prvw'; æKY kFormatListFormat æT constant æFc Editions.p æD kFormatListFormat = 'fmts'; æKY kPICTformatMask æT constant æFc Editions.p æD kPICTformatMask = 1; æKY kTEXTformatMask æT constant æFc Editions.p æD kTEXTformatMask = 2; æKY ksndFormatMask æT constant æFc Editions.p æD ksndFormatMask = 4; æKY kPICTEditionFileType æT constant æFc Editions.p æD kPICTEditionFileType = 'edtp'; æKY kTEXTEditionFileType æT constant æFc Editions.p æD kTEXTEditionFileType = 'edtt'; æKY ksndEditionFileType æT constant æFc Editions.p æD ksndEditionFileType = 'edts'; æKY kUnknownEditionFileType æT constant æFc Editions.p æD kUnknownEditionFileType = 'edtu'; æKY emHookRedrawPreview æT constant æFc Editions.p æD emHookRedrawPreview = 150; æKY emHookCancelSection æT constant æFc Editions.p æD emHookCancelSection = 160; æKY emHookGoToPublisher æT constant æFc Editions.p æD emHookGoToPublisher = 161; æKY emHookGetEditionNow æT constant æFc Editions.p æD emHookGetEditionNow = 162; æKY emHookSendEditionNow æT constant æFc Editions.p æD emHookSendEditionNow = 162; æKY emHookManualUpdateMode æT constant æFc Editions.p æD emHookManualUpdateMode = 163; æKY emHookAutoUpdateMode æT constant æFc Editions.p æD emHookAutoUpdateMode = 164; æKY emOptionsDialogRefCon æT constant æFc Editions.p æD emOptionsDialogRefCon = 'optn'; æKY emCancelSectionDialogRefCon æT constant æFc Editions.p æD emCancelSectionDialogRefCon = 'cncl'; æKY emGoToPubErrDialogRefCon æT constant æFc Editions.p æD emGoToPubErrDialogRefCon = 'gerr'; æKY kFormatLengthUnknown æT constant æFc Editions.p æD kFormatLengthUnknown = (-1); æKY SectionType æT typedef æFc Editions.p æD SectionType = SignedByte; { one byte, stSubscriber or stPublisher } æKY TimeStamp æT typedef æFc Editions.p æD TimeStamp = LONGINT; { seconds since 1904 } æKY FormatType æT typedef æFc Editions.p æD FormatType = PACKED ARRAY [1..4] OF CHAR;{ similar to ResType as used by scrap mgr } æKY EditionRefNum æT typedef æFc Editions.p æD EditionRefNum = Handle; { used in Edition I/O } æKY UpdateMode æT typedef æFc Editions.p æD UpdateMode = INTEGER; { sumAutomatic, pumSuspend, etc } æKY SectionRecord æT struct æFc Editions.p æD SectionPtr = ^SectionRecord; SectionHandle = ^SectionPtr; SectionRecord = RECORD version: SignedByte; { always 0x01 in system 7.0 } kind: SectionType; { stSubscriber or stPublisher } mode: UpdateMode; { auto or manual } mdDate: TimeStamp; { last change in document } sectionID: LONGINT; { app. specific, unique per document } refCon: LONGINT; { application specific } alias: AliasHandle; { handle to Alias Record } subPart: LONGINT; { which part of container file } nextSection: SectionHandle; { for linked list of app's Sections } controlBlock: Handle; { used internally } refNum: EditionRefNum; { used internally } END; æKY EditionContainerSpec æT struct æFc Editions.p æD EditionContainerSpecPtr = ^EditionContainerSpec; EditionContainerSpec = RECORD theFile: FSSpec; theFileScript: ScriptCode; thePart: LONGINT; thePartName: Str31; thePartScript: ScriptCode; END; æKY EditionInfoRecord æT struct æFc Editions.p æD EditionInfoRecord = RECORD crDate: TimeStamp; { date EditionContainer was created } mdDate: TimeStamp; { date of last change } fdCreator: OSType; { file creator } fdType: OSType; { file type } container: EditionContainerSpec; { the Edition } END; æKY NewPublisherReply æT struct æFc Editions.p æD NewPublisherReply = RECORD canceled: BOOLEAN; { O } replacing : BOOLEAN; usePart: BOOLEAN; { I } preview: Handle; { I } previewFormat: FormatType; { I } container: EditionContainerSpec; { I/O } END; æKY NewSubscriberReply æT struct æFc Editions.p æD NewSubscriberReply = RECORD canceled: BOOLEAN; { O } formatsMask: SignedByte; container: EditionContainerSpec; {I/O} END; æKY SectionOptionsReply æT struct æFc Editions.p æD SectionOptionsReply = RECORD canceled: BOOLEAN; { O } changed: BOOLEAN; { O } sectionH: SectionHandle; { I } action: ResType; { O } END; æKY ExpModalFilterProcPtr æT typedef æFc Editions.p æD ExpModalFilterProcPtr = ProcPtr; { FUNCTION Filter(theDialog: DialogPtr; VAR theEvent: EventRecord; itemOffset: INTEGER; VAR itemHit: INTEGER; yourDataPtr: Ptr): BOOLEAN; } æKY ExpDlgHookProcPtr æT typedef æFc Editions.p æD ExpDlgHookProcPtr = ProcPtr; { FUNCTION Hook(itemOffset, item: INTEGER; theDialog: DialogPtr; yourDataPtr: Ptr): INTEGER; } æKY FormatIOVerb ioHasFormat ioReadFormat ioNewFormat ioWriteFormat æT enum æFc Editions.p æD FormatIOVerb = (ioHasFormat,ioReadFormat,ioNewFormat,ioWriteFormat); æKY FormatIOParamBlock æT struct æFc Editions.p æD FormatIOParamBlock = RECORD ioRefNum: LONGINT; format: FormatType; formatIndex: LONGINT; offset: LONGINT; buffPtr: Ptr; buffLen: LONGINT; END; æKY FormatIOProcPtr æT typedef æFc Editions.p æD FormatIOProcPtr = ProcPtr; { FUNCTION IO(selector: FormatIOVerb; VAR PB: FormatIOParamBlock): OSErr; } æKY EditionOpenerVerb eoOpen eoClose eoOpenNew eoCloseNew eoCanSubscribe æT enum æFc Editions.p æD EditionOpenerVerb = (eoOpen,eoClose,eoOpenNew,eoCloseNew,eoCanSubscribe); æKY EditionOpenerParamBlock æT struct æFc Editions.p æD EditionOpenerParamBlock = RECORD info: EditionInfoRecord; sectionH: SectionHandle; document: FSSpecPtr; fdCreator: OSType; ioRefNum: LONGINT; ioProc: FormatIOProcPtr; success: BOOLEAN; formatsMask: SignedByte; END; æKY EditionOpenerProcPtr æT typedef æFc Editions.p æD EditionOpenerProcPtr = ProcPtr; { FUNCTION Opener(selector: EditionOpenerVerb; VAR PB: EditionOpenerParamBlock): OSErr; } æKY sectionEventMsgClass æT constant æFc Editions.p æD sectionEventMsgClass = 'sect'; æKY sectionReadMsgID æT constant æFc Editions.p æD sectionReadMsgID = 'read'; æKY sectionWriteMsgID æT constant æFc Editions.p æD sectionWriteMsgID = 'writ'; æKY sectionScrollMsgID æT constant æFc Editions.p æD sectionScrollMsgID = 'scrl'; æKY sectionCancelMsgID æT constant æFc Editions.p æD sectionCancelMsgID = 'cncl'; æKY InitEditionPack æT Function æFc Editions.p æD FUNCTION InitEditionPack: OSErr; INLINE $3F3C,$0011,$303C,$0100,$A82D; æKY NewSection æT Function æFc Editions.p æD FUNCTION NewSection(container: EditionContainerSpec; sectionDocument: FSSpecPtr; kind: SectionType; sectionID: LONGINT; initalMode: UpdateMode; VAR sectionH: SectionHandle): OSErr; INLINE $303C,$0A02,$A82D; æKY RegisterSection æT Function æFc Editions.p æD FUNCTION RegisterSection(sectionDocument: FSSpec; sectionH: SectionHandle; VAR aliasWasUpdated: BOOLEAN): OSErr; INLINE $303C,$0604,$A82D; æKY UnRegisterSection æT Function æFc Editions.p æD FUNCTION UnRegisterSection(sectionH: SectionHandle): OSErr; INLINE $303C,$0206,$A82D; æKY IsRegisteredSection æT Function æFc Editions.p æD FUNCTION IsRegisteredSection(sectionH: SectionHandle): OSErr; INLINE $303C,$0208,$A82D; æKY AssociateSection æT Function æFc Editions.p æD FUNCTION AssociateSection(sectionH: SectionHandle; newSectionDocument: FSSpecPtr): OSErr; INLINE $303C,$040C,$A82D; æKY CreateEditionContainerFile æT Function æFc Editions.p æD FUNCTION CreateEditionContainerFile(editionFile: FSSpec; fdCreator: OSType; editionFileNameScript: ScriptCode): OSErr; INLINE $303C,$050E,$A82D; æKY DeleteEditionContainerFile æT Function æFc Editions.p æD FUNCTION DeleteEditionContainerFile(editionFile: FSSpec): OSErr; INLINE $303C,$0210,$A82D; æKY OpenEdition æT Function æFc Editions.p æD FUNCTION OpenEdition(subscriberSectionH: SectionHandle; VAR refNum: EditionRefNum): OSErr; INLINE $303C,$0412,$A82D; æKY OpenNewEdition æT Function æFc Editions.p æD FUNCTION OpenNewEdition(publisherSectionH: SectionHandle; fdCreator: OSType; publisherSectionDocument: FSSpecPtr; VAR refNum: EditionRefNum): OSErr; INLINE $303C,$0814,$A82D; æKY CloseEdition æT Function æFc Editions.p æD FUNCTION CloseEdition(whichEdition: EditionRefNum; success: BOOLEAN): OSErr; INLINE $303C,$0316,$A82D; æKY EditionHasFormat æT Function æFc Editions.p æD FUNCTION EditionHasFormat(whichEdition: EditionRefNum; whichFormat: FormatType; VAR length: Size): OSErr; INLINE $303C,$0618,$A82D; æKY ReadEdition æT Function æFc Editions.p æD FUNCTION ReadEdition(whichEdition: EditionRefNum; whichFormat: FormatType; buffPtr: Ptr; VAR buffLen: Size): OSErr; INLINE $303C,$081A,$A82D; æKY WriteEdition æT Function æFc Editions.p æD FUNCTION WriteEdition(whichEdition: EditionRefNum; whichFormat: FormatType; buffPtr: UNIV Ptr; buffLen: Size): OSErr; INLINE $303C,$081C,$A82D; æKY GetEditionFormatMark æT Function æFc Editions.p æD FUNCTION GetEditionFormatMark(whichEdition: EditionRefNum; whichFormat: FormatType; VAR currentMark: LONGINT): OSErr; INLINE $303C,$061E,$A82D; æKY SetEditionFormatMark æT Function æFc Editions.p æD FUNCTION SetEditionFormatMark(whichEdition: EditionRefNum; whichFormat: FormatType; setMarkTo: LONGINT): OSErr; INLINE $303C,$0620,$A82D; æKY GetEditionInfo æT Function æFc Editions.p æD FUNCTION GetEditionInfo(sectionH: SectionHandle; VAR editionInfo: EditionInfoRecord): OSErr; INLINE $303C,$0422,$A82D; æKY GoToPublisherSection æT Function æFc Editions.p æD FUNCTION GoToPublisherSection(container: EditionContainerSpec): OSErr; INLINE $303C,$0224,$A82D; æKY GetLastEditionContainerUsed æT Function æFc Editions.p æD FUNCTION GetLastEditionContainerUsed(VAR container: EditionContainerSpec): OSErr; INLINE $303C,$0226,$A82D; æKY GetStandardFormats æT Function æFc Editions.p æD FUNCTION GetStandardFormats(container: EditionContainerSpec; VAR previewFormat: FormatType; preview: Handle; publisherAlias: Handle; formats: Handle): OSErr; INLINE $303C,$0A28,$A82D; æKY GetEditionOpenerProc æT Function æFc Editions.p æD FUNCTION GetEditionOpenerProc(VAR opener: EditionOpenerProcPtr): OSErr; INLINE $303C,$022A,$A82D; æKY SetEditionOpenerProc æT Function æFc Editions.p æD FUNCTION SetEditionOpenerProc(opener: EditionOpenerProcPtr): OSErr; INLINE $303C,$022C,$A82D; æKY CallEditionOpenerProc æT Function æFc Editions.p æD FUNCTION CallEditionOpenerProc(selector: EditionOpenerVerb; VAR PB: EditionOpenerParamBlock; routine: EditionOpenerProcPtr): OSErr; INLINE $303C,$052E,$A82D; æKY CallFormatIOProc æT Function æFc Editions.p æD FUNCTION CallFormatIOProc(selector: FormatIOVerb; VAR PB: FormatIOParamBlock; routine: FormatIOProcPtr): OSErr; INLINE $303C,$0530,$A82D; æKY NewSubscriberDialog æT Function æFc Editions.p æD FUNCTION NewSubscriberDialog(VAR reply: NewSubscriberReply): OSErr; INLINE $303C,$0232,$A82D; æKY NewSubscriberExpDialog æT Function æFc Editions.p æD FUNCTION NewSubscriberExpDialog(VAR reply: NewSubscriberReply; where: Point; expansionDITLresID: INTEGER; dlgHook: ExpDlgHookProcPtr; filterProc: ExpModalFilterProcPtr; yourDataPtr:UNIV Ptr): OSErr; INLINE $303C,$0B34,$A82D; æKY NewPublisherDialog æT Function æFc Editions.p æD FUNCTION NewPublisherDialog(VAR reply: NewPublisherReply): OSErr; INLINE $303C,$0236,$A82D; æKY NewPublisherExpDialog æT Function æFc Editions.p æD FUNCTION NewPublisherExpDialog(VAR reply: NewPublisherReply; where: Point; expansionDITLresID: INTEGER; dlgHook: ExpDlgHookProcPtr; filterProc: ExpModalFilterProcPtr; yourDataPtr: UNIV Ptr): OSErr; INLINE $303C,$0B38,$A82D; æKY SectionOptionsDialog æT Function æFc Editions.p æD FUNCTION SectionOptionsDialog(VAR reply: SectionOptionsReply): OSErr; INLINE $303C,$023A,$A82D; æKY SectionOptionsExpDialog æT Function æFc Editions.p æD FUNCTION SectionOptionsExpDialog(VAR reply: SectionOptionsReply; where: Point; expansionDITLresID: INTEGER; dlgHook: ExpDlgHookProcPtr; filterProc: ExpModalFilterProcPtr; yourDataPtr: UNIV Ptr): OSErr; INLINE $303C,$0B3C,$A82D; æKY EPPC.p æKL AcceptHighLevelEvent GetPortNameFromProcessSerialNumber GetProcessSerialNumberFromPortName GetSpecificHighLevelEvent PostHighLevelEvent bufferIsSmall connectionInvalid GetSpecificFilterProcPtr HighLevelEventMsg HighLevelEventMsgClass HighLevelEventMsgHdl HighLevelEventMsgPtr kHighLevelEvent msgWasFullyAccepted msgWasNotAccepted msgWasPartiallyAccepted nAttnMsg noOutstandingHLE noUserInteractionAllowed nReturnReceipt priorityMask receiverIDisPSN receiverIDisSessionID receiverIDisSignature receiverIDisTargetID receiverIDMask registerOnNetwork rtrnReceiptMsgID SenderID SenderIDPtr systemOptionsMask TargetID TargetIDHdl TargetIDPtr æKY kHighLevelEvent æT constant æFc EPPC.p æD kHighLevelEvent = 23; æKY receiverIDMask æT constant æFc EPPC.p æD receiverIDMask = $0000F000; æKY receiverIDisPSN æT constant æFc EPPC.p æD receiverIDisPSN = $00008000; æKY receiverIDisSignature æT constant æFc EPPC.p æD receiverIDisSignature = $00007000; æKY receiverIDisSessionID æT constant æFc EPPC.p æD receiverIDisSessionID = $00006000; æKY receiverIDisTargetID æT constant æFc EPPC.p æD receiverIDisTargetID = $00005000; æKY systemOptionsMask æT constant æFc EPPC.p æD systemOptionsMask = $00000F00; æKY nReturnReceipt æT constant æFc EPPC.p æD nReturnReceipt = $00000200; æKY priorityMask æT constant æFc EPPC.p æD priorityMask = $000000FF; æKY nAttnMsg æT constant æFc EPPC.p æD nAttnMsg = $00000001; æKY registerOnNetwork æT constant æFc EPPC.p æD registerOnNetwork = $80000000; æKY bufferIsSmall æT constant æFc EPPC.p æD bufferIsSmall = -607; æKY noOutstandingHLE æT constant æFc EPPC.p æD noOutstandingHLE = -608; æKY connectionInvalid æT constant æFc EPPC.p æD connectionInvalid = -609; æKY noUserInteractionAllowed æT constant æFc EPPC.p æD noUserInteractionAllowed = -610; { no user interaction allowed } æKY HighLevelEventMsgClass æT constant æFc EPPC.p æD HighLevelEventMsgClass = 'jaym'; æKY rtrnReceiptMsgID æT constant æFc EPPC.p æD rtrnReceiptMsgID = 'rtrn'; æKY msgWasPartiallyAccepted æT constant æFc EPPC.p æD msgWasPartiallyAccepted = 2; æKY msgWasFullyAccepted æT constant æFc EPPC.p æD msgWasFullyAccepted = 1; æKY msgWasNotAccepted æT constant æFc EPPC.p æD msgWasNotAccepted = 0; æKY TargetID æT struct æFc EPPC.p æD TargetIDPtr = ^TargetID; TargetIDHdl = ^TargetIDPtr; TargetID = RECORD sessionID: LONGINT; name: PPCPortRec; location: LocationNameRec; recvrName: PPCPortRec; END; æKY SenderID æT typedef æFc EPPC.p æD SenderID = TargetID; æKY SenderIDPtr æT typedef æFc EPPC.p æD SenderIDPtr = ^SenderID; æKY HighLevelEventMsg æT struct æFc EPPC.p æD HighLevelEventMsgPtr = ^HighLevelEventMsg; HighLevelEventMsgHdl = ^HighLevelEventMsgPtr; HighLevelEventMsg = RECORD HighLevelEventMsgHeaderLength: INTEGER; version: INTEGER; reserved1: LONGINT; theMsgEvent: EventRecord; userRefcon: LONGINT; postingOptions: LONGINT; msgLength: LONGINT; END; æKY PostHighLevelEvent æT Function æFc EPPC.p æD FUNCTION PostHighLevelEvent(theEvent: EventRecord; receiverID: Ptr; msgRefcon: LONGINT; msgBuff: Ptr; msgLen: LONGINT; postingOptions: LONGINT): OSErr; INLINE $3F3C,$0034,$A88F; æKY AcceptHighLevelEvent æT Function æFc EPPC.p æD FUNCTION AcceptHighLevelEvent(VAR sender: TargetID; VAR msgRefcon: LONGINT; msgBuff: Ptr; VAR msgLen: LONGINT): OSErr; INLINE $3F3C,$0033,$A88F; æKY GetProcessSerialNumberFromPortName æT Function æFc EPPC.p æD FUNCTION GetProcessSerialNumberFromPortName(portName: PPCPortRec;VAR pPSN: ProcessSerialNumber): OSErr; INLINE $3F3C,$0035,$A88F; æKY GetPortNameFromProcessSerialNumber æT Function æFc EPPC.p æD FUNCTION GetPortNameFromProcessSerialNumber(VAR portName: PPCPortRec;pPSN: ProcessSerialNumber): OSErr; INLINE $3F3C,$0046,$A88F; æKY GetSpecificFilterProcPtr æT typedef æFc EPPC.p æD GetSpecificFilterProcPtr = ProcPtr; { FUNCTION MyFilter(yourDataPtr: Ptr; } { msgBuff: HighLevelEventMsgPtr; } { sender: TargetID): Boolean; } æKY GetSpecificHighLevelEvent æT Function æFc EPPC.p æD FUNCTION GetSpecificHighLevelEvent(aFilter: GetSpecificFilterProcPtr;yourDataPtr: UNIV Ptr; VAR err: OSErr): BOOLEAN; INLINE $3F3C,$0045,$A88F; æKY Errors.p æKL SysError abortErr addRefFailed addResFailed afpAccessDenied afpAuthContinue afpBadUAM afpBadVersNum afpBitmapErr afpCallNotSupported afpCantMove afpCantRename afpDenyConflict afpDirNotEmpty afpDirNotFound afpDiskFull afpEofError afpFileBusy afpFlatVol afpIconTypeError afpItemNotFound afpLockErr afpMiscErr afpNoMoreLocks afpNoServer afpObjectExists afpObjectLocked afpObjectNotFound afpObjectTypeErr afpParmErr afpRangeNotLocked afpRangeOverlap afpServerGoingDown afpSessClosed afpTooManyFilesOpen afpUserNotAuth afpVolLocked appIsDaemon appMemFullErr appModeErr aspBadVersNum aspBufTooSmall aspNoAck aspNoMoreSess aspNoServers aspParamErr aspServerBusy aspSessClosed aspSizeErr aspTooMany atpBadRsp atpLenErr authFailErr badATPSkt badBtSlpErr badBuffNum badChannel badCksmErr badDBtSlp badDCksum badEditionFileErr badExtResource badFidErr badFileFormat badFormat badLocNameErr badMDBErr badMovErr badPortNameErr badReqErr badSectionErr badServiceMethodErr badSubPartErr badUnitErr bdNamErr breakRecd buf2SmallErr buffersTooSmall cannotDeferErr cannotMakeContiguousErr CantDecompress cantLoadPickMethodErr cantStepErr catChangedErr cbNotFound CDEFNFnd cDevErr channelBusy channelNotBusy ckSumErr clkRdErr clkWrErr closErr cMatchErr cNoMemErr colorsRequestedErr containerAlreadyOpenWrn containerNotFoundWrn controlErr corErr cProtectErr cRangeErr cResErr cTempMemErr dataVerErr dceExtErr ddpLenErr ddpSktErr desktopDamagedErr destPortErr diffVolErr dInstErr dirFulErr dirNFErr dRemovErr ds32BitMode dsAddressErr dsBadLaunch dsBadPatch dsBadPatchHeader dsBadSANEOpcode dsBadSlotInt dsBadStartupDisk dsBufPtrTooLow dsBusError dsCDEFNotFound dsChkErr dsCoreErr dsDisassemblerInstalled dsExtensionsDisabled dsFinderErr dsForcedQuit dsFPErr dsFSErr dsGreeting dsHD20Installed dsHMenuFindErr dsIllInstErr dsIOCoreErr dsIrqErr dskFulErr dsLineAErr dsLineFErr dsLoadErr dsMacsBugInstalled dsMBarNFnd dsMDEFNotFound dsMemFullErr dsMiscErr dsNeedToWriteBootBlocks dsNoFPU dsNoPackErr dsNoPatch dsNoPk1 dsNoPk2 dsNoPk3 dsNoPk4 dsNoPk5 dsNoPk6 dsNoPk7 dsNotEnoughRAMToBoot dsNotThe1 dsOldSystem dsOvflowErr dsParityErr dsPrivErr dsReinsert dsShutDownOrRestart dsStknHeap dsSwitchOffOrRestart dsSysErr dsSystemFileErr dsTraceErr dsWDEFNotFound dsZeroDivErr dupFNErr editionMgrInitErr envBadVers envNotPresent envVersTooBig eofErr evtNotEnb excessCollsns extFSErr extractErr exUserBreak fBsyErr fidExists fidNotFound firstDskErr fLckdErr fmt1Err fmt2Err fnfErr fnOpnErr fontDecError fontNotDeclared fontNotOutlineErr fontSubErr framingErr fsRnErr gcrOnMFMErr gfpErr guestNotAllowedErr hardwareConfigErr hMenuFindErr hwOverrunErr hwParamErr iIOAbortErr initIWMErr interruptsMaskedErr ioErr lapProtErr lastDskErr localOnlyErr mapReadErr mBarNFnd memAdrErr memAZErr memBCErr memFragErr memFullErr memLockedErr memPCErr memPurErr memROZErr memROZError memROZWarn memSCErr memWZErr menuPrgErr mFulErr multiplePublisherWrn nameTypeErr nbpBuffOvr nbpConfDiff nbpDuplicate nbpNISErr nbpNoConfirm nbpNotFound negZcbFreeErr networkErr nilHandleErr nmTypErr noAdrMkErr noBridgeErr noDataArea noDefaultUserErr noDriveErr noDtaMkErr noGlobalsErr noHardware noHardwareErr noInformErr noMacDskErr noMachineNameErr noMemForPictPlaybackErr noMoreRealTime noMPPErr noNybErr noPortErr noRelErr noResponseErr noScrapErr noSendResp noSessionErr notAFileErr notEnoughBufferSpace notEnoughHardware notEnoughHardwareErr notEnoughMemoryErr notHeldErr notInitErr notLockedErr notLoggedInErr noToolboxNameErr notOpenErr notRegisteredSectionErr notThePublisherWrn noTypeErr noUserNameErr noUserRecErr noUserRefErr nsDrvErr nsStackErr nsvErr offLinErr openErr opWrErr paramErr parityErr permErr pictInfoIDErr pictInfoVerbErr pictInfoVersionErr pictureDataErr pixMapTooDeepErr pmBusyErr pmRecvEndErr pmRecvStartErr pmReplyTOErr pmSendEndErr pmSendStartErr portClosedErr portInUse portNameExistsErr portNotCf posErr prInitErr procNotFound protocolErr prWrErr qErr queueFull rcvrErr readErr readQErr recNotFnd reqAborted reqFailed resAttrErr resFNotFound resNotFound resProblem rfNumErr rgnTooBigErr rgnTooBigError rmvRefFailed rmvResFailed sameFileErr sdmInitErr sdmJTInitErr sdmPRAMInitErr sdmPriInitErr sdmSRTInitErr sectNFErr seekErr selectorErr seNoDB sessClosedErr sessTableErr shutDownAlert siBadDeviceName siBadRefNum siBadSoundInDevice siDeviceBusyErr siHardDriveTooSlow siInitSDTblErr siInitSPTblErr siInitVBLQsErr siInputDeviceErr siInvalidCompression siInvalidSampleRate siInvalidSampleSize siNoBufferSpecified siNoSoundInHardware siUnknownInfoType siUnknownQuality sktClosedErr slotNumErr SlpTypeErr smBadBoardId smBadRefId smBadsList smBadsPtrErr smBLFieldBad smBlkMoveErr smBusErrTO smByteLanesErr smCkStatusErr smCodeRevErr smCPUErr smCRCFail smDisabledSlot smDisDrvrNamErr smDisposePErr smEmptySlot smFHBlkDispErr smFHBlockRdErr smFormatErr smGetDrvrNamErr smGetPRErr smInitStatVErr smInitTblVErr smNewPErr smNilsBlockErr smNoBoardId smNoBoardSRsrc smNoDir smNoGoodOpens smNoJmpTbl smNoMoresRsrcs smNosInfoArray smOffsetErr smPRAMInitErr smPriInitErr smRecNotFnd smReservedErr smResrvErr smRevisionErr smSDMInitErr smSelOOBErr smsGetDrvrErr smSlotOOBErr smsPointerNil smSRTInitErr smSRTOvrFlErr smUnExBusErr spdAdjErr statusErr strUserBreak svDisabled svTempDisable swOverrunErr teScrapSizeErr tk0BadErr tmfoErr tmwdoErr tooManyReqs tooManySkts twoSideErr unimpErr unitEmptyErr unitTblFullErr updPixMemErr userBreak userCanceledErr userRejectErr verErr vLckdErr volGoneErr volOffLinErr volOnLinErr vTypErr WDEFNFnd wPrErr wrgVolTypErr writErr wrPermErr wrUnderrun æKY paramErr æT constant æFc Errors.p æD paramErr = -50; {error in user parameter list} æKY noHardwareErr æT constant æFc Errors.p æD noHardwareErr = -200; {Sound Manager Error Returns} æKY notEnoughHardwareErr æT constant æFc Errors.p æD notEnoughHardwareErr = -201; {Sound Manager Error Returns} æKY userCanceledErr æT constant æFc Errors.p æD userCanceledErr = -128; æKY qErr æT constant æFc Errors.p æD qErr = -1; {queue element not found during deletion} æKY vTypErr æT constant æFc Errors.p æD vTypErr = -2; {invalid queue element} æKY corErr æT constant æFc Errors.p æD corErr = -3; {core routine number out of range} æKY unimpErr æT constant æFc Errors.p æD unimpErr = -4; {unimplemented core routine} æKY SlpTypeErr æT constant æFc Errors.p æD SlpTypeErr = -5; {invalid queue element} æKY seNoDB æT constant æFc Errors.p æD seNoDB = -8; {no debugger installed to handle debugger command} æKY controlErr æT constant æFc Errors.p æD controlErr = -17; {I/O System Errors} æKY statusErr æT constant æFc Errors.p æD statusErr = -18; {I/O System Errors} æKY readErr æT constant æFc Errors.p æD readErr = -19; {I/O System Errors} æKY writErr æT constant æFc Errors.p æD writErr = -20; {I/O System Errors} æKY badUnitErr æT constant æFc Errors.p æD badUnitErr = -21; {I/O System Errors} æKY unitEmptyErr æT constant æFc Errors.p æD unitEmptyErr = -22; {I/O System Errors} æKY openErr æT constant æFc Errors.p æD openErr = -23; {I/O System Errors} æKY closErr æT constant æFc Errors.p æD closErr = -24; {I/O System Errors} æKY dRemovErr æT constant æFc Errors.p æD dRemovErr = -25; {tried to remove an open driver} æKY dInstErr æT constant æFc Errors.p æD dInstErr = -26; {DrvrInstall couldn't find driver in resources } æKY abortErr æT constant æFc Errors.p æD abortErr = -27; {IO call aborted by KillIO} æKY iIOAbortErr æT constant æFc Errors.p æD iIOAbortErr = -27; {IO abort error (Printing Manager)} æKY notOpenErr æT constant æFc Errors.p æD notOpenErr = -28; {Couldn't rd/wr/ctl/sts cause driver not opened} æKY unitTblFullErr æT constant æFc Errors.p æD unitTblFullErr = -29; {unit table has no more entries} æKY dceExtErr æT constant æFc Errors.p æD dceExtErr = -30; {dce extension error} æKY slotNumErr æT constant æFc Errors.p æD slotNumErr = -360; {invalid slot # error} æKY gcrOnMFMErr æT constant æFc Errors.p æD gcrOnMFMErr = -400; {gcr format on high density media error} æKY dirFulErr æT constant æFc Errors.p æD dirFulErr = -33; {Directory full} æKY dskFulErr æT constant æFc Errors.p æD dskFulErr = -34; {disk full} æKY nsvErr æT constant æFc Errors.p æD nsvErr = -35; {no such volume} æKY ioErr æT constant æFc Errors.p æD ioErr = -36; {I/O error (bummers)} æKY bdNamErr æT constant æFc Errors.p æD bdNamErr = -37; {there may be no bad names in the final system!} æKY fnOpnErr æT constant æFc Errors.p æD fnOpnErr = -38; {File not open} æKY eofErr æT constant æFc Errors.p æD eofErr = -39; {End of file} æKY posErr æT constant æFc Errors.p æD posErr = -40; {tried to position to before start of file (r/w)} æKY mFulErr æT constant æFc Errors.p æD mFulErr = -41; {memory full (open) or file won't fit (load)} æKY tmfoErr æT constant æFc Errors.p æD tmfoErr = -42; {too many files open} æKY fnfErr æT constant æFc Errors.p æD fnfErr = -43; {File not found} æKY wPrErr æT constant æFc Errors.p æD wPrErr = -44; {diskette is write protected.} æKY fLckdErr æT constant æFc Errors.p æD fLckdErr = -45; {file is locked} æKY vLckdErr æT constant æFc Errors.p æD vLckdErr = -46; {volume is locked} æKY fBsyErr æT constant æFc Errors.p æD fBsyErr = -47; {File is busy (delete)} æKY dupFNErr æT constant æFc Errors.p æD dupFNErr = -48; {duplicate filename (rename)} æKY opWrErr æT constant æFc Errors.p æD opWrErr = -49; {file already open with with write permission} æKY rfNumErr æT constant æFc Errors.p æD rfNumErr = -51; {refnum error} æKY gfpErr æT constant æFc Errors.p æD gfpErr = -52; {get file position error} æKY volOffLinErr æT constant æFc Errors.p æD volOffLinErr = -53; {volume not on line error (was Ejected)} æKY permErr æT constant æFc Errors.p æD permErr = -54; {permissions error (on file open)} æKY volOnLinErr æT constant æFc Errors.p æD volOnLinErr = -55; {drive volume already on-line at MountVol} æKY nsDrvErr æT constant æFc Errors.p æD nsDrvErr = -56; {no such drive (tried to mount a bad drive num)} æKY noMacDskErr æT constant æFc Errors.p æD noMacDskErr = -57; {not a mac diskette (sig bytes are wrong)} æKY extFSErr æT constant æFc Errors.p æD extFSErr = -58; {volume in question belongs to an external fs} æKY fsRnErr æT constant æFc Errors.p æD fsRnErr = -59; {file system internal error:during rename the old entry was deleted but could not be restored.} æKY badMDBErr æT constant æFc Errors.p æD badMDBErr = -60; {bad master directory block} æKY wrPermErr æT constant æFc Errors.p æD wrPermErr = -61; {write permissions error} æKY dirNFErr æT constant æFc Errors.p æD dirNFErr = -120; {Directory not found} æKY tmwdoErr æT constant æFc Errors.p æD tmwdoErr = -121; {No free WDCB available} æKY badMovErr æT constant æFc Errors.p æD badMovErr = -122; {Move into offspring error} æKY wrgVolTypErr æT constant æFc Errors.p æD wrgVolTypErr = -123; {Wrong volume type error [operation not supported for MFS]} æKY volGoneErr æT constant æFc Errors.p æD volGoneErr = -124; {Server volume has been disconnected.} æKY fidNotFound æT constant æFc Errors.p æD fidNotFound = -1300; {no file thread exists.} æKY fidExists æT constant æFc Errors.p æD fidExists = -1301; {file id already exists} æKY notAFileErr æT constant æFc Errors.p æD notAFileErr = -1302; {directory specified} æKY diffVolErr æT constant æFc Errors.p æD diffVolErr = -1303; {files on different volumes} æKY catChangedErr æT constant æFc Errors.p æD catChangedErr = -1304; {the catalog has been modified} æKY desktopDamagedErr æT constant æFc Errors.p æD desktopDamagedErr = -1305; {desktop database files are corrupted} æKY sameFileErr æT constant æFc Errors.p æD sameFileErr = -1306; {can't exchange a file with itself} æKY badFidErr æT constant æFc Errors.p æD badFidErr = -1307; {file id is dangling or doesn't match with the file number} æKY envNotPresent æT constant æFc Errors.p æD envNotPresent = -5500; {returned by glue.} æKY envBadVers æT constant æFc Errors.p æD envBadVers = -5501; {Version non-positive} æKY envVersTooBig æT constant æFc Errors.p æD envVersTooBig = -5502; {Version bigger than call can handle} æKY fontDecError æT constant æFc Errors.p æD fontDecError = -64; {error during font declaration} æKY fontNotDeclared æT constant æFc Errors.p æD fontNotDeclared = -65; {font not declared} æKY fontSubErr æT constant æFc Errors.p æD fontSubErr = -66; {font substitution occured} æKY fontNotOutlineErr æT constant æFc Errors.p æD fontNotOutlineErr = -32615; {bitmap font passed to routine that does outlines only} æKY firstDskErr æT constant æFc Errors.p æD firstDskErr = -84; {I/O System Errors} æKY lastDskErr æT constant æFc Errors.p æD lastDskErr = -64; {I/O System Errors} æKY noDriveErr æT constant æFc Errors.p æD noDriveErr = -64; {drive not installed} æKY offLinErr æT constant æFc Errors.p æD offLinErr = -65; {r/w requested for an off-line drive} æKY noNybErr æT constant æFc Errors.p æD noNybErr = -66; {couldn't find 5 nybbles in 200 tries} æKY noAdrMkErr æT constant æFc Errors.p æD noAdrMkErr = -67; {couldn't find valid addr mark} æKY dataVerErr æT constant æFc Errors.p æD dataVerErr = -68; {read verify compare failed} æKY badCksmErr æT constant æFc Errors.p æD badCksmErr = -69; {addr mark checksum didn't check} æKY badBtSlpErr æT constant æFc Errors.p æD badBtSlpErr = -70; {bad addr mark bit slip nibbles} æKY noDtaMkErr æT constant æFc Errors.p æD noDtaMkErr = -71; {couldn't find a data mark header} æKY badDCksum æT constant æFc Errors.p æD badDCksum = -72; {bad data mark checksum} æKY badDBtSlp æT constant æFc Errors.p æD badDBtSlp = -73; {bad data mark bit slip nibbles} æKY wrUnderrun æT constant æFc Errors.p æD wrUnderrun = -74; {write underrun occurred} æKY cantStepErr æT constant æFc Errors.p æD cantStepErr = -75; {step handshake failed} æKY tk0BadErr æT constant æFc Errors.p æD tk0BadErr = -76; {track 0 detect doesn't change} æKY initIWMErr æT constant æFc Errors.p æD initIWMErr = -77; {unable to initialize IWM} æKY twoSideErr æT constant æFc Errors.p æD twoSideErr = -78; {tried to read 2nd side on a 1-sided drive} æKY spdAdjErr æT constant æFc Errors.p æD spdAdjErr = -79; {unable to correctly adjust disk speed} æKY seekErr æT constant æFc Errors.p æD seekErr = -80; {track number wrong on address mark} æKY sectNFErr æT constant æFc Errors.p æD sectNFErr = -81; {sector number never found on a track} æKY fmt1Err æT constant æFc Errors.p æD fmt1Err = -82; {can't find sector 0 after track format} æKY fmt2Err æT constant æFc Errors.p æD fmt2Err = -83; {can't get enough sync} æKY verErr æT constant æFc Errors.p æD verErr = -84; {track failed to verify} æKY clkRdErr æT constant æFc Errors.p æD clkRdErr = -85; {unable to read same clock value twice} æKY clkWrErr æT constant æFc Errors.p æD clkWrErr = -86; {time written did not verify} æKY prWrErr æT constant æFc Errors.p æD prWrErr = -87; {parameter ram written didn't read-verify} æKY prInitErr æT constant æFc Errors.p æD prInitErr = -88; {InitUtil found the parameter ram uninitialized} æKY rcvrErr æT constant æFc Errors.p æD rcvrErr = -89; {SCC receiver error (framing; parity; OR)} æKY breakRecd æT constant æFc Errors.p æD breakRecd = -90; {Break received (SCC)} æKY pmBusyErr æT constant æFc Errors.p æD pmBusyErr = -13000; {Power Mgr never ready to start handshake} æKY pmReplyTOErr æT constant æFc Errors.p æD pmReplyTOErr = -13001; {Timed out waiting for reply} æKY pmSendStartErr æT constant æFc Errors.p æD pmSendStartErr = -13002; {during send, pmgr did not start hs} æKY pmSendEndErr æT constant æFc Errors.p æD pmSendEndErr = -13003; {during send, pmgr did not finish hs} æKY pmRecvStartErr æT constant æFc Errors.p æD pmRecvStartErr = -13004; {during receive, pmgr did not start hs} æKY pmRecvEndErr æT constant æFc Errors.p æD pmRecvEndErr = -13005; {during receive, pmgr did not finish hs configured for this connection} æKY noScrapErr æT constant æFc Errors.p æD noScrapErr = -100; {No scrap exists error} æKY noTypeErr æT constant æFc Errors.p æD noTypeErr = -102; {No object of that type in scrap} æKY memROZWarn æT constant æFc Errors.p æD memROZWarn = -99; {soft error in ROZ} æKY memROZError æT constant æFc Errors.p æD memROZError = -99; {hard error in ROZ} æKY memROZErr æT constant æFc Errors.p æD memROZErr = -99; {hard error in ROZ} æKY memFullErr æT constant æFc Errors.p æD memFullErr = -108; {Not enough room in heap zone} æKY nilHandleErr æT constant æFc Errors.p æD nilHandleErr = -109; {Master Pointer was NIL in HandleZone or other} æKY memWZErr æT constant æFc Errors.p æD memWZErr = -111; {WhichZone failed (applied to free block)} æKY memPurErr æT constant æFc Errors.p æD memPurErr = -112; {trying to purge a locked or non-purgeable block} æKY memAdrErr æT constant æFc Errors.p æD memAdrErr = -110; {address was odd; or out of range} æKY memAZErr æT constant æFc Errors.p æD memAZErr = -113; {Address in zone check failed} æKY memPCErr æT constant æFc Errors.p æD memPCErr = -114; {Pointer Check failed} æKY memBCErr æT constant æFc Errors.p æD memBCErr = -115; {Block Check failed} æKY memSCErr æT constant æFc Errors.p æD memSCErr = -116; {Size Check failed} æKY memLockedErr æT constant æFc Errors.p æD memLockedErr = -117; {trying to move a locked block (MoveHHi)} æKY resNotFound æT constant æFc Errors.p æD resNotFound = -192; {Resource not found} æKY resFNotFound æT constant æFc Errors.p æD resFNotFound = -193; {Resource file not found} æKY addResFailed æT constant æFc Errors.p æD addResFailed = -194; {AddResource failed} æKY addRefFailed æT constant æFc Errors.p æD addRefFailed = -195; {AddReference failed} æKY rmvResFailed æT constant æFc Errors.p æD rmvResFailed = -196; {RmveResource failed} æKY rmvRefFailed æT constant æFc Errors.p æD rmvRefFailed = -197; {RmveReference failed} æKY resAttrErr æT constant æFc Errors.p æD resAttrErr = -198; {attribute inconsistent with operation} æKY mapReadErr æT constant æFc Errors.p æD mapReadErr = -199; {map inconsistent with operation} æKY CantDecompress æT constant æFc Errors.p æD CantDecompress = -186; {resource bent ("the bends") - can't decompress a compressed resource} æKY badExtResource æT constant æFc Errors.p æD badExtResource = -185; {extended resource has a bad format.} æKY evtNotEnb æT constant æFc Errors.p æD evtNotEnb = 1; {event not enabled at PostEvent} æKY noMemForPictPlaybackErr æT constant æFc Errors.p æD noMemForPictPlaybackErr = -145; æKY rgnTooBigError æT constant æFc Errors.p æD rgnTooBigError = -147; æKY pixMapTooDeepErr æT constant æFc Errors.p æD pixMapTooDeepErr = -148; æKY nsStackErr æT constant æFc Errors.p æD nsStackErr = -149; æKY cMatchErr æT constant æFc Errors.p æD cMatchErr = -150; {Color2Index failed to find an index} æKY cTempMemErr æT constant æFc Errors.p æD cTempMemErr = -151; {failed to allocate memory for temporary structures} æKY cNoMemErr æT constant æFc Errors.p æD cNoMemErr = -152; {failed to allocate memory for structure} æKY cRangeErr æT constant æFc Errors.p æD cRangeErr = -153; {range error on colorTable request} æKY cProtectErr æT constant æFc Errors.p æD cProtectErr = -154; {colorTable entry protection violation} æKY cDevErr æT constant æFc Errors.p æD cDevErr = -155; {invalid type of graphics device} æKY cResErr æT constant æFc Errors.p æD cResErr = -156; {invalid resolution for MakeITable} æKY rgnTooBigErr æT constant æFc Errors.p æD rgnTooBigErr = -500; æKY updPixMemErr æT constant æFc Errors.p æD updPixMemErr = -125; {insufficient memory to update a pixmap} æKY pictInfoVersionErr æT constant æFc Errors.p æD pictInfoVersionErr = -11000; { wrong version of the PictInfo structure } æKY pictInfoIDErr æT constant æFc Errors.p æD pictInfoIDErr = -11001; { the internal consistancy check for the PictInfoID is wrong } æKY pictInfoVerbErr æT constant æFc Errors.p æD pictInfoVerbErr = -11002; { the passed verb was invalid } æKY cantLoadPickMethodErr æT constant æFc Errors.p æD cantLoadPickMethodErr = -11003; { unable to load the custom pick proc } æKY colorsRequestedErr æT constant æFc Errors.p æD colorsRequestedErr = -11004; { the number of colors requested was illegal } æKY pictureDataErr æT constant æFc Errors.p æD pictureDataErr = -11005; { the picture data was invalid } æKY noHardware æT constant æFc Errors.p æD noHardware = noHardwareErr; {*** obsolete spelling} æKY notEnoughHardware æT constant æFc Errors.p æD notEnoughHardware = notEnoughHardwareErr; {*** obsolete spelling} æKY queueFull æT constant æFc Errors.p æD queueFull = -203; {Sound Manager Error Returns} æKY resProblem æT constant æFc Errors.p æD resProblem = -204; {Sound Manager Error Returns} æKY badChannel æT constant æFc Errors.p æD badChannel = -205; {Sound Manager Error Returns} æKY badFormat æT constant æFc Errors.p æD badFormat = -206; {Sound Manager Error Returns} æKY notEnoughBufferSpace æT constant æFc Errors.p æD notEnoughBufferSpace = -207; { could not allocate enough memory } æKY badFileFormat æT constant æFc Errors.p æD badFileFormat = -208; { was not type AIFF or was of bad format,corrupt } æKY channelBusy æT constant æFc Errors.p æD channelBusy = -209; { the Channel is being used for a PFD already } æKY buffersTooSmall æT constant æFc Errors.p æD buffersTooSmall = -210; { can not operate in the memory allowed } æKY channelNotBusy æT constant æFc Errors.p æD channelNotBusy = -211; æKY noMoreRealTime æT constant æFc Errors.p æD noMoreRealTime = -212; { not enough CPU cycles left to add another task } æKY siNoSoundInHardware æT constant æFc Errors.p æD siNoSoundInHardware = -220; {no Sound Input hardware} æKY siBadSoundInDevice æT constant æFc Errors.p æD siBadSoundInDevice = -221; {invalid index passed to SoundInGetIndexedDevice} æKY siNoBufferSpecified æT constant æFc Errors.p æD siNoBufferSpecified = -222; {returned by synchronous SPBRecord if nil buffer passed} æKY siInvalidCompression æT constant æFc Errors.p æD siInvalidCompression = -223; {invalid compression type} æKY siHardDriveTooSlow æT constant æFc Errors.p æD siHardDriveTooSlow = -224; {hard drive too slow to record to disk} æKY siInvalidSampleRate æT constant æFc Errors.p æD siInvalidSampleRate = -225; {invalid sample rate} æKY siInvalidSampleSize æT constant æFc Errors.p æD siInvalidSampleSize = -226; {invalid sample size} æKY siDeviceBusyErr æT constant æFc Errors.p æD siDeviceBusyErr = -227; {input device already in use} æKY siBadDeviceName æT constant æFc Errors.p æD siBadDeviceName = -228; {input device could not be opened} æKY siBadRefNum æT constant æFc Errors.p æD siBadRefNum = -229; {invalid input device reference number} æKY siInputDeviceErr æT constant æFc Errors.p æD siInputDeviceErr = -230; {input device hardware failure} æKY siUnknownInfoType æT constant æFc Errors.p æD siUnknownInfoType = -231; {invalid info type selector (returned by driver)} æKY siUnknownQuality æT constant æFc Errors.p æD siUnknownQuality = -232; {invalid quality selector (returned by driver)} æKY nmTypErr æT constant æFc Errors.p æD nmTypErr = -299; {wrong queue type} æKY siInitSDTblErr æT constant æFc Errors.p æD siInitSDTblErr = 1; {slot int dispatch table could not be initialized.} æKY siInitVBLQsErr æT constant æFc Errors.p æD siInitVBLQsErr = 2; {VBLqueues for all slots could not be initialized.} æKY siInitSPTblErr æT constant æFc Errors.p æD siInitSPTblErr = 3; {slot priority table could not be initialized.} æKY sdmJTInitErr æT constant æFc Errors.p æD sdmJTInitErr = 10; {SDM Jump Table could not be initialized.} æKY sdmInitErr æT constant æFc Errors.p æD sdmInitErr = 11; {SDM could not be initialized.} æKY sdmSRTInitErr æT constant æFc Errors.p æD sdmSRTInitErr = 12; {Slot Resource Table could not be initialized.} æKY sdmPRAMInitErr æT constant æFc Errors.p æD sdmPRAMInitErr = 13; {Slot PRAM could not be initialized.} æKY sdmPriInitErr æT constant æFc Errors.p æD sdmPriInitErr = 14; {Cards could not be initialized.} æKY smSDMInitErr æT constant æFc Errors.p æD smSDMInitErr = -290; {Error; SDM could not be initialized.} æKY smSRTInitErr æT constant æFc Errors.p æD smSRTInitErr = -291; {Error; Slot Resource Table could not be initialized.} æKY smPRAMInitErr æT constant æFc Errors.p æD smPRAMInitErr = -292; {Error; Slot Resource Table could not be initialized.} æKY smPriInitErr æT constant æFc Errors.p æD smPriInitErr = -293; {Error; Cards could not be initialized.} æKY smEmptySlot æT constant æFc Errors.p æD smEmptySlot = -300; {No card in slot} æKY smCRCFail æT constant æFc Errors.p æD smCRCFail = -301; {CRC check failed for declaration data} æKY smFormatErr æT constant æFc Errors.p æD smFormatErr = -302; {FHeader Format is not Apple's} æKY smRevisionErr æT constant æFc Errors.p æD smRevisionErr = -303; {Wrong revison level} æKY smNoDir æT constant æFc Errors.p æD smNoDir = -304; {Directory offset is Nil } æKY smDisabledSlot æT constant æFc Errors.p æD smDisabledSlot = -305; {This slot is disabled (-305 use to be smLWTstBad)} æKY smNosInfoArray æT constant æFc Errors.p æD smNosInfoArray = -306; {No sInfoArray. Memory Mgr error.} æKY smResrvErr æT constant æFc Errors.p æD smResrvErr = -307; {Fatal reserved error. Resreved field <> 0.} æKY smUnExBusErr æT constant æFc Errors.p æD smUnExBusErr = -308; {Unexpected BusError} æKY smBLFieldBad æT constant æFc Errors.p æD smBLFieldBad = -309; {ByteLanes field was bad.} æKY smFHBlockRdErr æT constant æFc Errors.p æD smFHBlockRdErr = -310; {Error occured during _sGetFHeader.} æKY smFHBlkDispErr æT constant æFc Errors.p æD smFHBlkDispErr = -311; {Error occured during _sDisposePtr (Dispose of FHeader block).} æKY smDisposePErr æT constant æFc Errors.p æD smDisposePErr = -312; {_DisposePointer error} æKY smNoBoardSRsrc æT constant æFc Errors.p æD smNoBoardSRsrc = -313; {No Board sResource.} æKY smGetPRErr æT constant æFc Errors.p æD smGetPRErr = -314; {Error occured during _sGetPRAMRec (See SIMStatus).} æKY smNoBoardId æT constant æFc Errors.p æD smNoBoardId = -315; {No Board Id.} æKY smInitStatVErr æT constant æFc Errors.p æD smInitStatVErr = -316; {The InitStatusV field was negative after primary or secondary init.} æKY smInitTblVErr æT constant æFc Errors.p æD smInitTblVErr = -317; {An error occured while trying to initialize the Slot Resource Table.} æKY smNoJmpTbl æT constant æFc Errors.p æD smNoJmpTbl = -318; {SDM jump table could not be created.} æKY smBadBoardId æT constant æFc Errors.p æD smBadBoardId = -319; {BoardId was wrong; re-init the PRAM record.} æKY smBusErrTO æT constant æFc Errors.p æD smBusErrTO = -320; {BusError time out.} æKY svTempDisable æT constant æFc Errors.p æD svTempDisable = -32768; {Temporarily disable card but run primary init.} æKY svDisabled æT constant æFc Errors.p æD svDisabled = -32640; {Reserve range -32640 to -32768 for Apple temp disables.} æKY smBadRefId æT constant æFc Errors.p æD smBadRefId = -330; {Reference Id not found in List} æKY smBadsList æT constant æFc Errors.p æD smBadsList = -331; {Bad sList: Id1 < Id2 < Id3 ...format is not followed.} æKY smReservedErr æT constant æFc Errors.p æD smReservedErr = -332; {Reserved field not zero} æKY smCodeRevErr æT constant æFc Errors.p æD smCodeRevErr = -333; {Code revision is wrong} æKY smCPUErr æT constant æFc Errors.p æD smCPUErr = -334; {Code revision is wrong} æKY smsPointerNil æT constant æFc Errors.p æD smsPointerNil = -335; {LPointer is nil From sOffsetData. If this error occurs; check sInfo rec for more information.} æKY smNilsBlockErr æT constant æFc Errors.p æD smNilsBlockErr = -336; {Nil sBlock error (Dont allocate and try to use a nil sBlock)} æKY smSlotOOBErr æT constant æFc Errors.p æD smSlotOOBErr = -337; {Slot out of bounds error} æKY smSelOOBErr æT constant æFc Errors.p æD smSelOOBErr = -338; {Selector out of bounds error} æKY smNewPErr æT constant æFc Errors.p æD smNewPErr = -339; {_NewPtr error} æKY smBlkMoveErr æT constant æFc Errors.p æD smBlkMoveErr = -340; {_BlockMove error} æKY smCkStatusErr æT constant æFc Errors.p æD smCkStatusErr = -341; {Status of slot = fail.} æKY smGetDrvrNamErr æT constant æFc Errors.p æD smGetDrvrNamErr = -342; {Error occured during _sGetDrvrName.} æKY smDisDrvrNamErr æT constant æFc Errors.p æD smDisDrvrNamErr = -343; {Error occured during _sDisDrvrName.} æKY smNoMoresRsrcs æT constant æFc Errors.p æD smNoMoresRsrcs = -344; {No more sResources} æKY smsGetDrvrErr æT constant æFc Errors.p æD smsGetDrvrErr = -345; {Error occurred during _sGetDriver.} æKY smBadsPtrErr æT constant æFc Errors.p æD smBadsPtrErr = -346; {Bad pointer was passed to sCalcsPointer} æKY smByteLanesErr æT constant æFc Errors.p æD smByteLanesErr = -347; {NumByteLanes was determined to be zero.} æKY smOffsetErr æT constant æFc Errors.p æD smOffsetErr = -348; {Offset was too big (temporary error} æKY smNoGoodOpens æT constant æFc Errors.p æD smNoGoodOpens = -349; {No opens were successfull in the loop.} æKY smSRTOvrFlErr æT constant æFc Errors.p æD smSRTOvrFlErr = -350; {SRT over flow.} æKY smRecNotFnd æT constant æFc Errors.p æD smRecNotFnd = -351; {Record not found in the SRT.} æKY editionMgrInitErr æT constant æFc Errors.p æD editionMgrInitErr = -450; {edition manager not inited by this app} æKY badSectionErr æT constant æFc Errors.p æD badSectionErr = -451; {not a valid SectionRecord} æKY notRegisteredSectionErr æT constant æFc Errors.p æD notRegisteredSectionErr = -452; {not a registered SectionRecord} æKY badEditionFileErr æT constant æFc Errors.p æD badEditionFileErr = -453; {edition file is corrupt} æKY badSubPartErr æT constant æFc Errors.p æD badSubPartErr = -454; {can not use sub parts in this release} æKY multiplePublisherWrn æT constant æFc Errors.p æD multiplePublisherWrn = -460; {A Publisher is already registered for that container} æKY containerNotFoundWrn æT constant æFc Errors.p æD containerNotFoundWrn = -461; {could not find editionContainer at this time} æKY containerAlreadyOpenWrn æT constant æFc Errors.p æD containerAlreadyOpenWrn = -462; {container already opened by this section} æKY notThePublisherWrn æT constant æFc Errors.p æD notThePublisherWrn = -463; {not the first registered publisher for that container} æKY teScrapSizeErr æT constant æFc Errors.p æD teScrapSizeErr = -501; {scrap item too big for text edit record} æKY hwParamErr æT constant æFc Errors.p æD hwParamErr = -502; {bad selector for _HWPriv} æKY procNotFound æT constant æFc Errors.p æD procNotFound = -600; { no eligible process with specified descriptor } æKY memFragErr æT constant æFc Errors.p æD memFragErr = -601; { not enough room to launch app w/special requirements } æKY appModeErr æT constant æFc Errors.p æD appModeErr = -602; { memory mode is 32-bit, but app not 32-bit clean } æKY protocolErr æT constant æFc Errors.p æD protocolErr = -603; { app made module calls in improper order } æKY hardwareConfigErr æT constant æFc Errors.p æD hardwareConfigErr = -604; { hardware configuration not correct for call } æKY appMemFullErr æT constant æFc Errors.p æD appMemFullErr = -605; { application SIZE not big enough for launch } æKY appIsDaemon æT constant æFc Errors.p æD appIsDaemon = -606; { app is BG-only, and launch flags disallow this } æKY notEnoughMemoryErr æT constant æFc Errors.p æD notEnoughMemoryErr = -620; {insufficient physical memory} æKY notHeldErr æT constant æFc Errors.p æD notHeldErr = -621; {specified range of memory is not held} æKY cannotMakeContiguousErr æT constant æFc Errors.p æD cannotMakeContiguousErr = -622; {cannot make specified range contiguous} æKY notLockedErr æT constant æFc Errors.p æD notLockedErr = -623; {specified range of memory is not locked} æKY interruptsMaskedErr æT constant æFc Errors.p æD interruptsMaskedErr = -624; {don’t call with interrupts masked} æKY cannotDeferErr æT constant æFc Errors.p æD cannotDeferErr = -625; {unable to defer additional functions} æKY ddpSktErr æT constant æFc Errors.p æD ddpSktErr = -91; {error in soket number} æKY ddpLenErr æT constant æFc Errors.p æD ddpLenErr = -92; {data length too big} æKY noBridgeErr æT constant æFc Errors.p æD noBridgeErr = -93; {no network bridge for non-local send} æKY lapProtErr æT constant æFc Errors.p æD lapProtErr = -94; {error in attaching/detaching protocol} æKY excessCollsns æT constant æFc Errors.p æD excessCollsns = -95; {excessive collisions on write} æKY portInUse æT constant æFc Errors.p æD portInUse = -97; {driver Open error code (port is in use)} æKY portNotCf æT constant æFc Errors.p æD portNotCf = -98; {driver Open error code (parameter RAM not configured for this connection)} æKY nbpBuffOvr æT constant æFc Errors.p æD nbpBuffOvr = -1024; {Buffer overflow in LookupName} æKY nbpNoConfirm æT constant æFc Errors.p æD nbpNoConfirm = -1025; æKY nbpConfDiff æT constant æFc Errors.p æD nbpConfDiff = -1026; {Name confirmed at different socket} æKY nbpDuplicate æT constant æFc Errors.p æD nbpDuplicate = -1027; {Duplicate name exists already} æKY nbpNotFound æT constant æFc Errors.p æD nbpNotFound = -1028; {Name not found on remove} æKY nbpNISErr æT constant æFc Errors.p æD nbpNISErr = -1029; {Error trying to open the NIS} æKY aspBadVersNum æT constant æFc Errors.p æD aspBadVersNum = -1066; {Server cannot support this ASP version} æKY aspBufTooSmall æT constant æFc Errors.p æD aspBufTooSmall = -1067; {Buffer too small} æKY aspNoMoreSess æT constant æFc Errors.p æD aspNoMoreSess = -1068; {No more sessions on server} æKY aspNoServers æT constant æFc Errors.p æD aspNoServers = -1069; {No servers at that address} æKY aspParamErr æT constant æFc Errors.p æD aspParamErr = -1070; {Parameter error} æKY aspServerBusy æT constant æFc Errors.p æD aspServerBusy = -1071; {Server cannot open another session} æKY aspSessClosed æT constant æFc Errors.p æD aspSessClosed = -1072; {Session closed} æKY aspSizeErr æT constant æFc Errors.p æD aspSizeErr = -1073; {Command block too big} æKY aspTooMany æT constant æFc Errors.p æD aspTooMany = -1074; {Too many clients (server error)} æKY aspNoAck æT constant æFc Errors.p æD aspNoAck = -1075; {No ack on attention request (server err)} æKY reqFailed æT constant æFc Errors.p æD reqFailed = -1096; æKY tooManyReqs æT constant æFc Errors.p æD tooManyReqs = -1097; æKY tooManySkts æT constant æFc Errors.p æD tooManySkts = -1098; æKY badATPSkt æT constant æFc Errors.p æD badATPSkt = -1099; æKY badBuffNum æT constant æFc Errors.p æD badBuffNum = -1100; æKY noRelErr æT constant æFc Errors.p æD noRelErr = -1101; æKY cbNotFound æT constant æFc Errors.p æD cbNotFound = -1102; æKY noSendResp æT constant æFc Errors.p æD noSendResp = -1103; æKY noDataArea æT constant æFc Errors.p æD noDataArea = -1104; æKY reqAborted æT constant æFc Errors.p æD reqAborted = -1105; æKY buf2SmallErr æT constant æFc Errors.p æD buf2SmallErr = -3101; æKY noMPPErr æT constant æFc Errors.p æD noMPPErr = -3102; æKY ckSumErr æT constant æFc Errors.p æD ckSumErr = -3103; æKY extractErr æT constant æFc Errors.p æD extractErr = -3104; æKY readQErr æT constant æFc Errors.p æD readQErr = -3105; æKY atpLenErr æT constant æFc Errors.p æD atpLenErr = -3106; æKY atpBadRsp æT constant æFc Errors.p æD atpBadRsp = -3107; æKY recNotFnd æT constant æFc Errors.p æD recNotFnd = -3108; æKY sktClosedErr æT constant æFc Errors.p æD sktClosedErr = -3109; æKY afpAccessDenied æT constant æFc Errors.p æD afpAccessDenied = -5000; æKY afpAuthContinue æT constant æFc Errors.p æD afpAuthContinue = -5001; æKY afpBadUAM æT constant æFc Errors.p æD afpBadUAM = -5002; æKY afpBadVersNum æT constant æFc Errors.p æD afpBadVersNum = -5003; æKY afpBitmapErr æT constant æFc Errors.p æD afpBitmapErr = -5004; æKY afpCantMove æT constant æFc Errors.p æD afpCantMove = -5005; æKY afpDenyConflict æT constant æFc Errors.p æD afpDenyConflict = -5006; æKY afpDirNotEmpty æT constant æFc Errors.p æD afpDirNotEmpty = -5007; æKY afpDiskFull æT constant æFc Errors.p æD afpDiskFull = -5008; æKY afpEofError æT constant æFc Errors.p æD afpEofError = -5009; æKY afpFileBusy æT constant æFc Errors.p æD afpFileBusy = -5010; æKY afpFlatVol æT constant æFc Errors.p æD afpFlatVol = -5011; æKY afpItemNotFound æT constant æFc Errors.p æD afpItemNotFound = -5012; æKY afpLockErr æT constant æFc Errors.p æD afpLockErr = -5013; æKY afpMiscErr æT constant æFc Errors.p æD afpMiscErr = -5014; æKY afpNoMoreLocks æT constant æFc Errors.p æD afpNoMoreLocks = -5015; æKY afpNoServer æT constant æFc Errors.p æD afpNoServer = -5016; æKY afpObjectExists æT constant æFc Errors.p æD afpObjectExists = -5017; æKY afpObjectNotFound æT constant æFc Errors.p æD afpObjectNotFound = -5018; æKY afpParmErr æT constant æFc Errors.p æD afpParmErr = -5019; æKY afpRangeNotLocked æT constant æFc Errors.p æD afpRangeNotLocked = -5020; æKY afpRangeOverlap æT constant æFc Errors.p æD afpRangeOverlap = -5021; æKY afpSessClosed æT constant æFc Errors.p æD afpSessClosed = -5022; æKY afpUserNotAuth æT constant æFc Errors.p æD afpUserNotAuth = -5023; æKY afpCallNotSupported æT constant æFc Errors.p æD afpCallNotSupported = -5024; æKY afpObjectTypeErr æT constant æFc Errors.p æD afpObjectTypeErr = -5025; æKY afpTooManyFilesOpen æT constant æFc Errors.p æD afpTooManyFilesOpen = -5026; æKY afpServerGoingDown æT constant æFc Errors.p æD afpServerGoingDown = -5027; æKY afpCantRename æT constant æFc Errors.p æD afpCantRename = -5028; æKY afpDirNotFound æT constant æFc Errors.p æD afpDirNotFound = -5029; æKY afpIconTypeError æT constant æFc Errors.p æD afpIconTypeError = -5030; æKY afpVolLocked æT constant æFc Errors.p æD afpVolLocked = -5031; {Volume is Read-Only} æKY afpObjectLocked æT constant æFc Errors.p æD afpObjectLocked = -5032; {Object is M/R/D/W inhibited} æKY notInitErr æT constant æFc Errors.p æD notInitErr = -900; { PPCToolBox not initialized } æKY nameTypeErr æT constant æFc Errors.p æD nameTypeErr = -902; { Invalid or inappropriate locationKindSelector in locationName } æKY noPortErr æT constant æFc Errors.p æD noPortErr = -903; { Unable to open port or bad portRefNum } æKY noGlobalsErr æT constant æFc Errors.p æD noGlobalsErr = -904; { The system is hosed, better re-boot } æKY localOnlyErr æT constant æFc Errors.p æD localOnlyErr = -905; { Network activity is currently disabled } æKY destPortErr æT constant æFc Errors.p æD destPortErr = -906; { Port does not exist at destination } æKY sessTableErr æT constant æFc Errors.p æD sessTableErr = -907; { Out of session tables, try again later } æKY noSessionErr æT constant æFc Errors.p æD noSessionErr = -908; { Invalid session reference number } æKY badReqErr æT constant æFc Errors.p æD badReqErr = -909; { bad parameter or invalid state for operation } æKY portNameExistsErr æT constant æFc Errors.p æD portNameExistsErr = -910; { port is already open (perhaps in another app) } æKY noUserNameErr æT constant æFc Errors.p æD noUserNameErr = -911; { user name unknown on destination machine } æKY userRejectErr æT constant æFc Errors.p æD userRejectErr = -912; { Destination rejected the session request } æKY noMachineNameErr æT constant æFc Errors.p æD noMachineNameErr = -913; { user hasn't named his Macintosh in the Network Setup Control Panel } æKY noToolboxNameErr æT constant æFc Errors.p æD noToolboxNameErr = -914; { A system resource is missing, not too likely } æKY noResponseErr æT constant æFc Errors.p æD noResponseErr = -915; { unable to contact destination } æKY portClosedErr æT constant æFc Errors.p æD portClosedErr = -916; { port was closed } æKY sessClosedErr æT constant æFc Errors.p æD sessClosedErr = -917; { session was closed } æKY badPortNameErr æT constant æFc Errors.p æD badPortNameErr = -919; { PPCPortRec malformed } æKY noDefaultUserErr æT constant æFc Errors.p æD noDefaultUserErr = -922; { user hasn't typed in owners name in Network Setup Control Pannel } æKY notLoggedInErr æT constant æFc Errors.p æD notLoggedInErr = -923; { The default userRefNum does not yet exist } æKY noUserRefErr æT constant æFc Errors.p æD noUserRefErr = -924; { unable to create a new userRefNum } æKY networkErr æT constant æFc Errors.p æD networkErr = -925; { An error has occured in the network, not too likely } æKY noInformErr æT constant æFc Errors.p æD noInformErr = -926; { PPCStart failed because destination did not have inform pending } æKY authFailErr æT constant æFc Errors.p æD authFailErr = -927; { unable to authenticate user at destination } æKY noUserRecErr æT constant æFc Errors.p æD noUserRecErr = -928; { Invalid user reference number } æKY badServiceMethodErr æT constant æFc Errors.p æD badServiceMethodErr = -930; { illegal service type, or not supported } æKY badLocNameErr æT constant æFc Errors.p æD badLocNameErr = -931; { location name malformed } æKY guestNotAllowedErr æT constant æFc Errors.p æD guestNotAllowedErr = -932; { destination port requires authentication } æKY swOverrunErr æT constant æFc Errors.p æD swOverrunErr = 1; {serial driver error masks} æKY parityErr æT constant æFc Errors.p æD parityErr = 16; {serial driver error masks} æKY hwOverrunErr æT constant æFc Errors.p æD hwOverrunErr = 32; {serial driver error masks} æKY framingErr æT constant æFc Errors.p æD framingErr = 64; {serial driver error masks} æKY dsBusError æT constant æFc Errors.p æD dsBusError = 1; {bus error } æKY dsAddressErr æT constant æFc Errors.p æD dsAddressErr = 2; {address error} æKY dsIllInstErr æT constant æFc Errors.p æD dsIllInstErr = 3; {illegal instruction error} æKY dsZeroDivErr æT constant æFc Errors.p æD dsZeroDivErr = 4; {zero divide error} æKY dsChkErr æT constant æFc Errors.p æD dsChkErr = 5; {check trap error} æKY dsOvflowErr æT constant æFc Errors.p æD dsOvflowErr = 6; {overflow trap error} æKY dsPrivErr æT constant æFc Errors.p æD dsPrivErr = 7; {privilege violation error} æKY dsTraceErr æT constant æFc Errors.p æD dsTraceErr = 8; {trace mode error} æKY dsLineAErr æT constant æFc Errors.p æD dsLineAErr = 9; {line 1010 trap error} æKY dsLineFErr æT constant æFc Errors.p æD dsLineFErr = 10; {line 1111 trap error} æKY dsMiscErr æT constant æFc Errors.p æD dsMiscErr = 11; {miscellaneous hardware exception error} æKY dsCoreErr æT constant æFc Errors.p æD dsCoreErr = 12; {unimplemented core routine error} æKY dsIrqErr æT constant æFc Errors.p æD dsIrqErr = 13; {uninstalled interrupt error} æKY dsIOCoreErr æT constant æFc Errors.p æD dsIOCoreErr = 14; {IO Core Error} æKY dsLoadErr æT constant æFc Errors.p æD dsLoadErr = 15; {Segment Loader Error} æKY dsFPErr æT constant æFc Errors.p æD dsFPErr = 16; {Floating point error} æKY dsNoPackErr æT constant æFc Errors.p æD dsNoPackErr = 17; {package 0 not present} æKY dsNoPk1 æT constant æFc Errors.p æD dsNoPk1 = 18; {package 1 not present} æKY dsNoPk2 æT constant æFc Errors.p æD dsNoPk2 = 19; {package 2 not present} æKY dsNoPk3 æT constant æFc Errors.p æD dsNoPk3 = 20; {package 3 not present} æKY dsNoPk4 æT constant æFc Errors.p æD dsNoPk4 = 21; {package 4 not present} æKY dsNoPk5 æT constant æFc Errors.p æD dsNoPk5 = 22; {package 5 not present} æKY dsNoPk6 æT constant æFc Errors.p æD dsNoPk6 = 23; {package 6 not present} æKY dsNoPk7 æT constant æFc Errors.p æD dsNoPk7 = 24; {package 7 not present} æKY dsMemFullErr æT constant æFc Errors.p æD dsMemFullErr = 25; {out of memory!} æKY dsBadLaunch æT constant æFc Errors.p æD dsBadLaunch = 26; {can't launch file} æKY dsFSErr æT constant æFc Errors.p æD dsFSErr = 27; {file system map has been trashed} æKY dsStknHeap æT constant æFc Errors.p æD dsStknHeap = 28; {stack has moved into application heap} æKY negZcbFreeErr æT constant æFc Errors.p æD negZcbFreeErr = 33; {ZcbFree has gone negative} æKY dsFinderErr æT constant æFc Errors.p æD dsFinderErr = 41; {can't load the Finder error} æKY dsBadSlotInt æT constant æFc Errors.p æD dsBadSlotInt = 51; {unserviceable slot interrupt} æKY dsBadSANEOpcode æT constant æFc Errors.p æD dsBadSANEOpcode = 81; {bad opcode given to SANE Pack4} æKY dsBadPatchHeader æT constant æFc Errors.p æD dsBadPatchHeader = 83; {SetTrapAddress saw the “come-from” header} æKY menuPrgErr æT constant æFc Errors.p æD menuPrgErr = 84; {happens when a menu is purged} æKY dsMBarNFnd æT constant æFc Errors.p æD dsMBarNFnd = 85; {Menu Manager Errors} æKY dsHMenuFindErr æT constant æFc Errors.p æD dsHMenuFindErr = 86; {Menu Manager Errors} æKY dsWDEFNotFound æT constant æFc Errors.p æD dsWDEFNotFound = 87; {could not load WDEF} æKY dsCDEFNotFound æT constant æFc Errors.p æD dsCDEFNotFound = 88; {could not load CDEF} æKY dsMDEFNotFound æT constant æFc Errors.p æD dsMDEFNotFound = 89; {could not load MDEF} æKY dsNoFPU æT constant æFc Errors.p æD dsNoFPU = 90; {an FPU instruction was executed and the machine doesn’t have one} æKY dsNoPatch æT constant æFc Errors.p æD dsNoPatch = 98; {Can't patch for particular Model Mac} æKY dsBadPatch æT constant æFc Errors.p æD dsBadPatch = 99; {Can't load patch resource} æKY dsParityErr æT constant æFc Errors.p æD dsParityErr = 101; {memory parity error} æKY dsOldSystem æT constant æFc Errors.p æD dsOldSystem = 102; {System is too old for this ROM} æKY ds32BitMode æT constant æFc Errors.p æD ds32BitMode = 103; {booting in 32-bit on a 24-bit sys} æKY dsNeedToWriteBootBlocks æT constant æFc Errors.p æD dsNeedToWriteBootBlocks = 104; {need to write new boot blocks} æKY dsNotEnoughRAMToBoot æT constant æFc Errors.p æD dsNotEnoughRAMToBoot = 105; {must have at least 1.5MB of RAM to boot 7.0} æKY dsBufPtrTooLow æT constant æFc Errors.p æD dsBufPtrTooLow = 106; {bufPtr moved too far during boot} æKY dsReinsert æT constant æFc Errors.p æD dsReinsert = 30; {request user to reinsert off-line volume} æKY shutDownAlert æT constant æFc Errors.p æD shutDownAlert = 42; {handled like a shutdown error} æKY dsShutDownOrRestart æT constant æFc Errors.p æD dsShutDownOrRestart = 20000; {user choice between ShutDown and Restart} æKY dsSwitchOffOrRestart æT constant æFc Errors.p æD dsSwitchOffOrRestart = 20001; {user choice between switching off and Restart} æKY dsForcedQuit æT constant æFc Errors.p æD dsForcedQuit = 20002; {allow the user to ExitToShell, return if Cancel} æKY dsMacsBugInstalled æT constant æFc Errors.p æD dsMacsBugInstalled = -10; {say “MacsBug Installed”} æKY dsDisassemblerInstalled æT constant æFc Errors.p æD dsDisassemblerInstalled = -11; {say “Disassembler Installed”} æKY dsExtensionsDisabled æT constant æFc Errors.p æD dsExtensionsDisabled = -13; {say “Extensions Disabled”} æKY dsGreeting æT constant æFc Errors.p æD dsGreeting = 40; {welcome to Macintosh greeting} æKY dsSysErr æT constant æFc Errors.p æD dsSysErr = 32767; {general system error} æKY WDEFNFnd æT constant æFc Errors.p æD WDEFNFnd = dsWDEFNotFound; æKY CDEFNFnd æT constant æFc Errors.p æD CDEFNFnd = dsCDEFNotFound; æKY dsNotThe1 æT constant æFc Errors.p æD dsNotThe1 = 31; {not the disk I wanted} æKY dsBadStartupDisk æT constant æFc Errors.p æD dsBadStartupDisk = 42; {unable to mount boot volume (sad Mac only)} æKY dsSystemFileErr æT constant æFc Errors.p æD dsSystemFileErr = 43; {can’t find System file to open (sad Mac only)} æKY dsHD20Installed æT constant æFc Errors.p æD dsHD20Installed = -12; {say “HD20 Startup”} æKY mBarNFnd æT constant æFc Errors.p æD mBarNFnd = -126; {system error code for MBDF not found} æKY hMenuFindErr æT constant æFc Errors.p æD hMenuFindErr = -127; {could not find HMenu's parent in MenuKey} æKY userBreak æT constant æFc Errors.p æD userBreak = -490; {user debugger break} æKY strUserBreak æT constant æFc Errors.p æD strUserBreak = -491; {user debugger break; display string on stack} æKY exUserBreak æT constant æFc Errors.p æD exUserBreak = -492; {user debugger break; execute debugger commands on stack} æKY selectorErr æT constant æFc Errors.p æD selectorErr = paramErr; {bad selector, for selector-based traps} æKY SysError æT Function æFc Errors.p æD PROCEDURE SysError(errorCode: INTEGER); INLINE $301F,$A9C9; æKY Events.p æKL Button EventAvail GetCaretTime GetDblTime GetKeys GetMouse GetNextEvent StillDown TickCount WaitMouseUp WaitNextEvent activateEvt activeFlag activMask adbAddrMask alphaLock app1Evt app1Mask app2Evt app2Mask app3Evt app3Mask app4Evt app4Mask autoKey autoKeyMask btnState charCodeMask cmdKey controlKey convertClipboardFlag diskEvt diskMask driverEvt driverMask EventRecord everyEvent highLevelEventMask keyCodeMask keyDown keyDownMask KeyMap keyUp keyUpMask mDownMask mouseDown mouseMovedMessage mouseUp mUpMask networkEvt networkMask nullEvent optionKey osEvt osEvtMessageMask osMask resumeFlag shiftKey suspendResumeMessage updateEvt updateMask æKY nullEvent æT constant æFc Events.p æD nullEvent = 0; æKY mouseDown æT constant æFc Events.p æD mouseDown = 1; æKY mouseUp æT constant æFc Events.p æD mouseUp = 2; æKY keyDown æT constant æFc Events.p æD keyDown = 3; æKY keyUp æT constant æFc Events.p æD keyUp = 4; æKY autoKey æT constant æFc Events.p æD autoKey = 5; æKY updateEvt æT constant æFc Events.p æD updateEvt = 6; æKY diskEvt æT constant æFc Events.p æD diskEvt = 7; æKY activateEvt æT constant æFc Events.p æD activateEvt = 8; æKY osEvt æT constant æFc Events.p æD osEvt = 15; æKY mDownMask æT constant æFc Events.p æD mDownMask = 2; æKY mUpMask æT constant æFc Events.p æD mUpMask = 4; æKY keyDownMask æT constant æFc Events.p æD keyDownMask = 8; æKY keyUpMask æT constant æFc Events.p æD keyUpMask = 16; æKY autoKeyMask æT constant æFc Events.p æD autoKeyMask = 32; æKY updateMask æT constant æFc Events.p æD updateMask = 64; æKY diskMask æT constant æFc Events.p æD diskMask = 128; æKY activMask æT constant æFc Events.p æD activMask = 256; æKY highLevelEventMask æT constant æFc Events.p æD highLevelEventMask = 1024; æKY osMask æT constant æFc Events.p æD osMask = -32768; æKY everyEvent æT constant æFc Events.p æD everyEvent = -1; æKY charCodeMask æT constant æFc Events.p æD charCodeMask = $000000FF; æKY keyCodeMask æT constant æFc Events.p æD keyCodeMask = $0000FF00; æKY adbAddrMask æT constant æFc Events.p æD adbAddrMask = $00FF0000; æKY osEvtMessageMask æT constant æFc Events.p æD osEvtMessageMask = $FF000000; æKY mouseMovedMessage æT constant æFc Events.p æD mouseMovedMessage = $FA; æKY suspendResumeMessage æT constant æFc Events.p æD suspendResumeMessage = $01; æKY resumeFlag æT constant æFc Events.p æD resumeFlag = 1; { bit 0 of message indicates resume vs suspend } æKY convertClipboardFlag æT constant æFc Events.p æD convertClipboardFlag = 2; { bit 1 in resume message indicates clipboard change } æKY activeFlag æT constant æFc Events.p æD activeFlag = 1; {bit 0 of modifiers for activate event} æKY btnState æT constant æFc Events.p æD btnState = 128; {Bit 7 of low byte is mouse button state} æKY cmdKey æT constant æFc Events.p æD cmdKey = 256; {Bit 0} æKY shiftKey æT constant æFc Events.p æD shiftKey = 512; {Bit 1} æKY alphaLock æT constant æFc Events.p æD alphaLock = 1024; {Bit 2 } æKY optionKey æT constant æFc Events.p æD optionKey = 2048; {Bit 3 of high byte} æKY controlKey æT constant æFc Events.p æD controlKey = 4096; æKY networkEvt æT constant æFc Events.p æD networkEvt = 10; æKY driverEvt æT constant æFc Events.p æD driverEvt = 11; æKY app1Evt æT constant æFc Events.p æD app1Evt = 12; æKY app2Evt æT constant æFc Events.p æD app2Evt = 13; æKY app3Evt æT constant æFc Events.p æD app3Evt = 14; æKY app4Evt æT constant æFc Events.p æD app4Evt = 15; æKY networkMask æT constant æFc Events.p æD networkMask = 1024; æKY driverMask æT constant æFc Events.p æD driverMask = 2048; æKY app1Mask æT constant æFc Events.p æD app1Mask = 4096; æKY app2Mask æT constant æFc Events.p æD app2Mask = 8192; æKY app3Mask æT constant æFc Events.p æD app3Mask = 16384; æKY app4Mask æT constant æFc Events.p æD app4Mask = -32768; æKY EventRecord æT struct æFc Events.p æD EventRecord = RECORD what: INTEGER; message: LONGINT; when: LONGINT; where: Point; modifiers: INTEGER; END; æKY KeyMap æT typedef æFc Events.p æD KeyMap = PACKED ARRAY [0..127] OF BOOLEAN; æKY GetNextEvent æT Function æFc Events.p æD FUNCTION GetNextEvent(eventMask: INTEGER;VAR theEvent: EventRecord): BOOLEAN; INLINE $A970; æKY WaitNextEvent æT Function æFc Events.p æD FUNCTION WaitNextEvent(eventMask: INTEGER;VAR theEvent: EventRecord;sleep: LONGINT; mouseRgn: RgnHandle): BOOLEAN; INLINE $A860; æKY EventAvail æT Function æFc Events.p æD FUNCTION EventAvail(eventMask: INTEGER;VAR theEvent: EventRecord): BOOLEAN; INLINE $A971; æKY GetMouse æT Function æFc Events.p æD PROCEDURE GetMouse(VAR mouseLoc: Point); INLINE $A972; æKY Button æT Function æFc Events.p æD FUNCTION Button: BOOLEAN; INLINE $A974; æKY StillDown æT Function æFc Events.p æD FUNCTION StillDown: BOOLEAN; INLINE $A973; æKY WaitMouseUp æT Function æFc Events.p æD FUNCTION WaitMouseUp: BOOLEAN; INLINE $A977; æKY GetKeys æT Function æFc Events.p æD PROCEDURE GetKeys(VAR theKeys: KeyMap); INLINE $A976; æKY TickCount æT Function æFc Events.p æD FUNCTION TickCount: LONGINT; INLINE $A975; æKY GetDblTime æT Function æFc Events.p æD FUNCTION GetDblTime: LONGINT; INLINE $2EB8,$02F0; æKY GetCaretTime æT Function æFc Events.p æD FUNCTION GetCaretTime: LONGINT; INLINE $2EB8,$02F4; æKY Files.p æKL AddDrive Allocate AllocContig CatMove CloseWD Create DirCreate Eject FInitQueue FlushVol FSClose FSDelete FSMakeFSSpec FSOpen FSpCatMove FSpCreate FSpDelete FSpDirCreate FSpExchangeFiles FSpGetFInfo FSpOpenDF FSpOpenRF FSpRename FSpRstFLock FSpSetFInfo FSpSetFLock FSRead FSWrite GetDrvQHdr GetEOF GetFInfo GetFPos GetFSQHdr GetVCBQHdr GetVInfo GetVol GetVRefNum GetWDInfo HCreate HDelete HGetFInfo HGetVol HOpen HOpenDF HOpenRF HRename HRstFLock HSetFInfo HSetFLock HSetVol OpenDF OpenRF OpenWD PBAllocate PBAllocateAsync PBAllocateSync PBAllocContig PBAllocContigAsync PBAllocContigSync PBCatMove PBCatMoveAsync PBCatMoveSync PBCatSearch PBCatSearchAsync PBCatSearchSync PBClose PBCloseAsync PBCloseSync PBCloseWD PBCloseWDAsync PBCloseWDSync PBCreate PBCreateAsync PBCreateFileIDRef PBCreateFileIDRefAsync PBCreateFileIDRefSync PBCreateSync PBDelete PBDeleteAsync PBDeleteFileIDRef PBDeleteFileIDRefAsync PBDeleteFileIDRefSync PBDeleteSync PBDirCreate PBDirCreateAsync PBDirCreateSync PBDTAddAPPL PBDTAddAPPLAsync PBDTAddAPPLSync PBDTAddIcon PBDTAddIconAsync PBDTAddIconSync PBDTCloseDown PBDTDelete PBDTDeleteAsync PBDTDeleteSync PBDTFlush PBDTFlushAsync PBDTFlushSync PBDTGetAPPL PBDTGetAPPLAsync PBDTGetAPPLSync PBDTGetComment PBDTGetCommentAsync PBDTGetCommentSync PBDTGetIcon PBDTGetIconAsync PBDTGetIconInfo PBDTGetIconInfoAsync PBDTGetIconInfoSync PBDTGetIconSync PBDTGetInfo PBDTGetInfoAsync PBDTGetInfoSync PBDTGetPath PBDTOpenInform PBDTRemoveAPPL PBDTRemoveAPPLAsync PBDTRemoveAPPLSync PBDTRemoveComment PBDTRemoveCommentAsync PBDTRemoveCommentSync PBDTReset PBDTResetAsync PBDTResetSync PBDTSetComment PBDTSetCommentAsync PBDTSetCommentSync PBEject PBExchangeFiles PBExchangeFilesAsync PBExchangeFilesSync PBFlushFile PBFlushFileAsync PBFlushFileSync PBFlushVol PBFlushVolAsync PBFlushVolSync PBGetCatInfo PBGetCatInfoAsync PBGetCatInfoSync PBGetEOF PBGetEOFAsync PBGetEOFSync PBGetFCBInfo PBGetFCBInfoAsync PBGetFCBInfoSync PBGetFInfo PBGetFInfoAsync PBGetFInfoSync PBGetForeignPrivs PBGetForeignPrivsAsync PBGetForeignPrivsSync PBGetFPos PBGetFPosAsync PBGetFPosSync PBGetVInfo PBGetVInfoAsync PBGetVInfoSync PBGetVol PBGetVolAsync PBGetVolMountInfo PBGetVolMountInfoSize PBGetVolSync PBGetWDInfo PBGetWDInfoAsync PBGetWDInfoSync PBHCopyFile PBHCopyFileAsync PBHCopyFileSync PBHCreate PBHCreateAsync PBHCreateSync PBHDelete PBHDeleteAsync PBHDeleteSync PBHGetDirAccess PBHGetDirAccessAsync PBHGetDirAccessSync PBHGetFInfo PBHGetFInfoAsync PBHGetFInfoSync PBHGetLogInInfo PBHGetLogInInfoAsync PBHGetLogInInfoSync PBHGetVInfo PBHGetVInfoAsync PBHGetVInfoSync PBHGetVol PBHGetVolAsync PBHGetVolParms PBHGetVolParmsAsync PBHGetVolParmsSync PBHGetVolSync PBHMapID PBHMapIDAsync PBHMapIDSync PBHMapName PBHMapNameAsync PBHMapNameSync PBHMoveRename PBHMoveRenameAsync PBHMoveRenameSync PBHOpen PBHOpenAsync PBHOpenDeny PBHOpenDenyAsync PBHOpenDenySync PBHOpenDF PBHOpenDFAsync PBHOpenDFSync PBHOpenRF PBHOpenRFAsync PBHOpenRFDeny PBHOpenRFDenyAsync PBHOpenRFDenySync PBHOpenRFSync PBHOpenSync PBHRename PBHRenameAsync PBHRenameSync PBHRstFLock PBHRstFLockAsync PBHRstFLockSync PBHSetDirAccess PBHSetDirAccessAsync PBHSetDirAccessSync PBHSetFInfo PBHSetFInfoAsync PBHSetFInfoSync PBHSetFLock PBHSetFLockAsync PBHSetFLockSync PBHSetVol PBHSetVolAsync PBHSetVolSync PBLockRange PBLockRangeAsync PBLockRangeSync PBMakeFSSpec PBMakeFSSpecAsync PBMakeFSSpecSync PBMountVol PBOffLine PBOpen PBOpenAsync PBOpenDF PBOpenDFAsync PBOpenDFSync PBOpenRF PBOpenRFAsync PBOpenRFSync PBOpenSync PBOpenWD PBOpenWDAsync PBOpenWDSync PBRead PBReadAsync PBReadSync PBRename PBRenameAsync PBRenameSync PBResolveFileIDRef PBResolveFileIDRefAsync PBResolveFileIDRefSync PBRstFLock PBRstFLockAsync PBRstFLockSync PBSetCatInfo PBSetCatInfoAsync PBSetCatInfoSync PBSetEOF PBSetEOFAsync PBSetEOFSync PBSetFInfo PBSetFInfoAsync PBSetFInfoSync PBSetFLock PBSetFLockAsync PBSetFLockSync PBSetForeignPrivs PBSetForeignPrivsAsync PBSetForeignPrivsSync PBSetFPos PBSetFPosAsync PBSetFPosSync PBSetFVers PBSetFVersAsync PBSetFVersSync PBSetVInfo PBSetVInfoAsync PBSetVInfoSync PBSetVol PBSetVolAsync PBSetVolSync PBUnlockRange PBUnlockRangeAsync PBUnlockRangeSync PBUnmountVol PBVolumeMount PBWrite PBWriteAsync PBWriteSync Rename RstFLock SetEOF SetFInfo SetFLock SetFPos SetVol UnmountVol AFPVolMountInfo AFPVolMountInfoPtr alphaStage AppleShareMediaType bAccessCntl betaStage bHasBlankAccessPrivileges bHasBTreeMgr bHasCatSearch bHasCopyFile bHasDesktopMgr bHasExtFSVol bHasFileIDs bHasFolderLock bHasMoveRename bHasOpenDeny bHasPersonalAccessPrivileges bHasShortName bHasUserGroupList bLimitFCBs bLocalWList bNoBootBlks bNoDeskItems bNoLclSync bNoMiniFndr bNoSwitchTo bNoSysDir bNoVNEdit bTrshOffLine CatPositionRec CInfoPBPtr CInfoPBRec CInfoType CMovePBPtr CMovePBRec developStage DInfo dirInfo DTPBPtr DTPBRec DXInfo FCBPBPtr FCBPBRec fDesktop fDisk fHasBundle finalStage fInvisible fOnDesk fsAtMark fsCurPerm fsFromLEOF fsFromMark fsFromStart fsRdPerm fsRdWrPerm fsRdWrShPerm fsRtDirID fsRtParID fsSBDrBkDat fsSBDrCrDat fsSBDrFndrInfo fsSBDrMdDat fsSBDrNmFls fsSBDrParID fsSBDrUsrWds fsSBFlAttrib fsSBFlBkDat fsSBFlCrDat fsSBFlFndrInfo fsSBFlLgLen fsSBFlMdDat fsSBFlParID fsSBFlPyLen fsSBFlRLgLen fsSBFlRPyLen fsSBFlXFndrInfo fsSBFullName fsSBNegate fsSBPartialName FSSpec FSSpecArray FSSpecArrayHandle FSSpecArrayPtr FSSpecHandle FSSpecPtr fsUnixPriv fsWrPerm fTrash FXInfo GetVolParmsInfoBuffer hFileInfo HParamBlockRec HParmBlkPtr ioDirFlg ioDirMask kEncryptPassword kLarge4BitIcon kLarge4BitIconSize kLarge8BitIcon kLarge8BitIconSize kLargeIcon kLargeIconSize kNoUserAuthentication kPassword kSmall4BitIcon kSmall4BitIconSize kSmall8BitIcon kSmall8BitIconSize kSmallIcon kSmallIconSize kTwoWayEncryptPassword MediaType NumVersion rdVerify VersRec VersRecHndl VersRecPtr WDPBPtr WDPBRec æKY fsAtMark æT constant æFc Files.p æD fsAtMark = 0; æKY fOnDesk æT constant æFc Files.p æD fOnDesk = 1; æKY fsCurPerm æT constant æFc Files.p æD fsCurPerm = 0; æKY fHasBundle æT constant æFc Files.p æD fHasBundle = 8192; æKY fsRdPerm æT constant æFc Files.p æD fsRdPerm = 1; æKY fInvisible æT constant æFc Files.p æD fInvisible = 16384; æKY fTrash æT constant æFc Files.p æD fTrash = -3; æKY fsWrPerm æT constant æFc Files.p æD fsWrPerm = 2; æKY fDesktop æT constant æFc Files.p æD fDesktop = -2; æKY fsRdWrPerm æT constant æFc Files.p æD fsRdWrPerm = 3; æKY fDisk æT constant æFc Files.p æD fDisk = 0; æKY fsRdWrShPerm æT constant æFc Files.p æD fsRdWrShPerm = 4; æKY fsFromStart æT constant æFc Files.p æD fsFromStart = 1; æKY fsFromLEOF æT constant æFc Files.p æD fsFromLEOF = 2; æKY fsFromMark æT constant æFc Files.p æD fsFromMark = 3; æKY rdVerify æT constant æFc Files.p æD rdVerify = 64; æKY ioDirFlg æT constant æFc Files.p æD ioDirFlg = 4; æKY ioDirMask æT constant æFc Files.p æD ioDirMask = $10; æKY fsRtParID æT constant æFc Files.p æD fsRtParID = 1; æKY fsRtDirID æT constant æFc Files.p æD fsRtDirID = 2; æKY fsSBPartialName æT constant æFc Files.p æD fsSBPartialName = 1; æKY fsSBFullName æT constant æFc Files.p æD fsSBFullName = 2; æKY fsSBFlAttrib æT constant æFc Files.p æD fsSBFlAttrib = 4; æKY fsSBFlFndrInfo æT constant æFc Files.p æD fsSBFlFndrInfo = 8; æKY fsSBFlLgLen æT constant æFc Files.p æD fsSBFlLgLen = 32; æKY fsSBFlPyLen æT constant æFc Files.p æD fsSBFlPyLen = 64; æKY fsSBFlRLgLen æT constant æFc Files.p æD fsSBFlRLgLen = 128; æKY fsSBFlRPyLen æT constant æFc Files.p æD fsSBFlRPyLen = 256; æKY fsSBFlCrDat æT constant æFc Files.p æD fsSBFlCrDat = 512; æKY fsSBFlMdDat æT constant æFc Files.p æD fsSBFlMdDat = 1024; æKY fsSBFlBkDat æT constant æFc Files.p æD fsSBFlBkDat = 2048; æKY fsSBFlXFndrInfo æT constant æFc Files.p æD fsSBFlXFndrInfo = 4096; æKY fsSBFlParID æT constant æFc Files.p æD fsSBFlParID = 8192; æKY fsSBNegate æT constant æFc Files.p æD fsSBNegate = 16384; æKY fsSBDrUsrWds æT constant æFc Files.p æD fsSBDrUsrWds = 8; æKY fsSBDrNmFls æT constant æFc Files.p æD fsSBDrNmFls = 16; æKY fsSBDrCrDat æT constant æFc Files.p æD fsSBDrCrDat = 512; æKY fsSBDrMdDat æT constant æFc Files.p æD fsSBDrMdDat = 1024; æKY fsSBDrBkDat æT constant æFc Files.p æD fsSBDrBkDat = 2048; æKY fsSBDrFndrInfo æT constant æFc Files.p æD fsSBDrFndrInfo = 4096; æKY fsSBDrParID æT constant æFc Files.p æD fsSBDrParID = 8192; æKY bLimitFCBs æT constant æFc Files.p æD bLimitFCBs = 31; æKY bLocalWList æT constant æFc Files.p æD bLocalWList = 30; æKY bNoMiniFndr æT constant æFc Files.p æD bNoMiniFndr = 29; æKY bNoVNEdit æT constant æFc Files.p æD bNoVNEdit = 28; æKY bNoLclSync æT constant æFc Files.p æD bNoLclSync = 27; æKY bTrshOffLine æT constant æFc Files.p æD bTrshOffLine = 26; æKY bNoSwitchTo æT constant æFc Files.p æD bNoSwitchTo = 25; æKY bNoDeskItems æT constant æFc Files.p æD bNoDeskItems = 20; æKY bNoBootBlks æT constant æFc Files.p æD bNoBootBlks = 19; æKY bAccessCntl æT constant æFc Files.p æD bAccessCntl = 18; æKY bNoSysDir æT constant æFc Files.p æD bNoSysDir = 17; æKY bHasExtFSVol æT constant æFc Files.p æD bHasExtFSVol = 16; æKY bHasOpenDeny æT constant æFc Files.p æD bHasOpenDeny = 15; æKY bHasCopyFile æT constant æFc Files.p æD bHasCopyFile = 14; æKY bHasMoveRename æT constant æFc Files.p æD bHasMoveRename = 13; æKY bHasDesktopMgr æT constant æFc Files.p æD bHasDesktopMgr = 12; æKY bHasShortName æT constant æFc Files.p æD bHasShortName = 11; æKY bHasFolderLock æT constant æFc Files.p æD bHasFolderLock = 10; æKY bHasPersonalAccessPrivileges æT constant æFc Files.p æD bHasPersonalAccessPrivileges = 9; æKY bHasUserGroupList æT constant æFc Files.p æD bHasUserGroupList = 8; æKY bHasCatSearch æT constant æFc Files.p æD bHasCatSearch = 7; æKY bHasFileIDs æT constant æFc Files.p æD bHasFileIDs = 6; æKY bHasBTreeMgr æT constant æFc Files.p æD bHasBTreeMgr = 5; æKY bHasBlankAccessPrivileges æT constant æFc Files.p æD bHasBlankAccessPrivileges = 4; æKY kLargeIcon æT constant æFc Files.p æD kLargeIcon = 1; æKY kLarge4BitIcon æT constant æFc Files.p æD kLarge4BitIcon = 2; æKY kLarge8BitIcon æT constant æFc Files.p æD kLarge8BitIcon = 3; æKY kSmallIcon æT constant æFc Files.p æD kSmallIcon = 4; æKY kSmall4BitIcon æT constant æFc Files.p æD kSmall4BitIcon = 5; æKY kSmall8BitIcon æT constant æFc Files.p æD kSmall8BitIcon = 6; æKY kLargeIconSize æT constant æFc Files.p æD kLargeIconSize = 256; æKY kLarge4BitIconSize æT constant æFc Files.p æD kLarge4BitIconSize = 512; æKY kLarge8BitIconSize æT constant æFc Files.p æD kLarge8BitIconSize = 1024; æKY kSmallIconSize æT constant æFc Files.p æD kSmallIconSize = 64; æKY kSmall4BitIconSize æT constant æFc Files.p æD kSmall4BitIconSize = 128; æKY kSmall8BitIconSize æT constant æFc Files.p æD kSmall8BitIconSize = 256; æKY fsUnixPriv æT constant æFc Files.p æD fsUnixPriv = 1; æKY developStage æT constant æFc Files.p æD developStage = $20; æKY alphaStage æT constant æFc Files.p æD alphaStage = $40; æKY betaStage æT constant æFc Files.p æD betaStage = $60; æKY finalStage æT constant æFc Files.p æD finalStage = $80; æKY kNoUserAuthentication æT constant æFc Files.p æD kNoUserAuthentication = 1; æKY kPassword æT constant æFc Files.p æD kPassword = 2; æKY kEncryptPassword æT constant æFc Files.p æD kEncryptPassword = 3; æKY kTwoWayEncryptPassword æT constant æFc Files.p æD kTwoWayEncryptPassword = 6; æKY CInfoType hFileInfo dirInfo æT enum æFc Files.p æD CInfoType = (hFileInfo,dirInfo); æKY FXInfo æT struct æFc Files.p æD FXInfo = RECORD fdIconID: INTEGER; { Icon ID} fdUnused: ARRAY [1..3] OF INTEGER; {unused but reserved 6 bytes} fdScript: SignedByte; { Script flag and number } fdXFlags: SignedByte; fdComment: INTEGER; { Comment ID} fdPutAway: LONGINT; { Home Dir ID} END; æKY DInfo æT struct æFc Files.p æD DInfo = RECORD frRect: Rect; {folder rect} frFlags: INTEGER; {Flags} frLocation: Point; {folder location} frView: INTEGER; {folder view} END; æKY DXInfo æT struct æFc Files.p æD DXInfo = RECORD frScroll: Point; {scroll position} frOpenChain: LONGINT; {DirID chain of open folders} frScript: SignedByte; { Script flag and number } frXFlags: SignedByte; frComment: INTEGER; {comment} frPutAway: LONGINT; {DirID} END; æKY GetVolParmsInfoBuffer æT struct æFc Files.p æD GetVolParmsInfoBuffer = RECORD vMVersion: INTEGER; {version number} vMAttrib: LONGINT; {bit vector of attributes (see vMAttrib constants)} vMLocalHand: Handle; {handle to private data} vMServerAdr: LONGINT; {AppleTalk server address or zero} vMVolumeGrade: LONGINT; {approx. speed rating or zero if unrated} vMForeignPrivID: INTEGER; {foreign privilege model supported or zero if none} END; æKY CInfoPBRec æT struct æFc Files.p æD CInfoPBPtr = ^CInfoPBRec; CInfoPBRec = RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; ioFRefNum: INTEGER; ioFVersNum: SignedByte; filler1: SignedByte; ioFDirIndex: INTEGER; ioFlAttrib: SignedByte; filler2: SignedByte; CASE CInfoType OF hFileInfo: (ioFlFndrInfo: FInfo; ioDirID: LONGINT; ioFlStBlk: INTEGER; ioFlLgLen: LONGINT; ioFlPyLen: LONGINT; ioFlRStBlk: INTEGER; ioFlRLgLen: LONGINT; ioFlRPyLen: LONGINT; ioFlCrDat: LONGINT; ioFlMdDat: LONGINT; ioFlBkDat: LONGINT; ioFlXFndrInfo: FXInfo; ioFlParID: LONGINT; ioFlClpSiz: LONGINT); dirInfo: (ioDrUsrWds: DInfo; ioDrDirID: LONGINT; ioDrNmFls: INTEGER; filler3: ARRAY [1..9] OF INTEGER; ioDrCrDat: LONGINT; ioDrMdDat: LONGINT; ioDrBkDat: LONGINT; ioDrFndrInfo: DXInfo; ioDrParID: LONGINT); END; æKY CatPositionRec æT struct æFc Files.p æD CatPositionRec = RECORD initialize: LONGINT; priv: ARRAY [1..6] OF INTEGER; END; æKY FSSpec æT struct æFc Files.p æD FSSpecPtr = ^FSSpec; FSSpecHandle = ^FSSpecPtr; FSSpec = RECORD vRefNum: INTEGER; parID: LONGINT; name: Str63; END; æKY FSSpecArray æT union æFc Files.p æD FSSpecArrayPtr = ^FSSpecArray; FSSpecArrayHandle = ^FSSpecArrayPtr; FSSpecArray = ARRAY [0..0] of FSSpec; æKY MediaType æT typedef æFc Files.p æD MediaType = OSType; { the "signature" of the file system } æKY AppleShareMediaType æT constant æFc Files.p æD AppleShareMediaType = 'afpm'; { the signature for AppleShare } æKY AFPVolMountInfo æT struct æFc Files.p æD AFPVolMountInfoPtr = ^AFPVolMountInfo; AFPVolMountInfo = RECORD length: INTEGER; { length of location data (including self) } media: MediaType; { type of media } flags: INTEGER; { bits for no messages, no reconnect } nbpInterval: SignedByte; { NBP Interval parameter (IM2, p.322) } nbpCount: SignedByte; { NBP Interval parameter (IM2, p.322) } uamType: INTEGER; { User Authentication Method } zoneNameOffset: INTEGER; { short positive offset from start of struct to Zone Name } serverNameOffset: INTEGER; { offset to pascal Server Name string } volNameOffset: INTEGER; { offset to pascal Volume Name string } userNameOffset: INTEGER; { offset to pascal User Name string } userPasswordOffset: INTEGER; { offset to pascal User Password string } volPasswordOffset: INTEGER; { offset to pascal Volume Password string } END; æKY DTPBRec æT struct æFc Files.p æD DTPBPtr = ^DTPBRec; DTPBRec = RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; ioDTRefNum: INTEGER; ioIndex: INTEGER; ioTagInfo: LONGINT; ioDTBuffer: Ptr; ioDTReqCount: LONGINT; ioDTActCount: LONGINT; filler1: SignedByte; ioIconType: SignedByte; filler2: INTEGER; ioDirID: LONGINT; ioFileCreator: OSType; ioFileType: OSType; ioFiller3: LONGINT; ioDTLgLen: LONGINT; ioDTPyLen: LONGINT; ioFiller4: ARRAY [1..14] OF INTEGER; ioAPPLParID: LONGINT; END; æKY HParamBlockRec æT struct æFc Files.p æD HParmBlkPtr = ^HParamBlockRec; HParamBlockRec = RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; CASE ParamBlkType OF IOParam: (ioRefNum: INTEGER; ioVersNum: SignedByte; ioPermssn: SignedByte; ioMisc: Ptr; ioBuffer: Ptr; ioReqCount: LONGINT; {size of buffer area} ioActCount: LONGINT; {length of vol parms data} ioPosMode: INTEGER; ioPosOffset: LONGINT); FileParam: (ioFRefNum: INTEGER; ioFVersNum: SignedByte; filler1: SignedByte; ioFDirIndex: INTEGER; ioFlAttrib: SignedByte; ioFlVersNum: SignedByte; ioFlFndrInfo: FInfo; ioDirID: LONGINT; ioFlStBlk: INTEGER; ioFlLgLen: LONGINT; ioFlPyLen: LONGINT; ioFlRStBlk: INTEGER; ioFlRLgLen: LONGINT; ioFlRPyLen: LONGINT; ioFlCrDat: LONGINT; ioFlMdDat: LONGINT); VolumeParam: (filler2: LONGINT; ioVolIndex: INTEGER; ioVCrDate: LONGINT; ioVLsMod: LONGINT; ioVAtrb: INTEGER; ioVNmFls: INTEGER; ioVBitMap: INTEGER; ioAllocPtr: INTEGER; ioVNmAlBlks: INTEGER; ioVAlBlkSiz: LONGINT; ioVClpSiz: LONGINT; ioAlBlSt: INTEGER; ioVNxtCNID: LONGINT; ioVFrBlk: INTEGER; ioVSigWord: INTEGER; ioVDrvInfo: INTEGER; ioVDRefNum: INTEGER; ioVFSID: INTEGER; ioVBkUp: LONGINT; ioVSeqNum: INTEGER; ioVWrCnt: LONGINT; ioVFilCnt: LONGINT; ioVDirCnt: LONGINT; ioVFndrInfo: ARRAY [1..8] OF LONGINT); AccessParam: (filler3: INTEGER; ioDenyModes: INTEGER; {access rights data} filler4: INTEGER; filler5: SignedByte; ioACUser: SignedByte; {access rights for directory only} filler6: LONGINT; ioACOwnerID: LONGINT; {owner ID} ioACGroupID: LONGINT; {group ID} ioACAccess: LONGINT); {access rights} ObjParam: (filler7: INTEGER; ioObjType: INTEGER; {function code} ioObjNamePtr: Ptr; {ptr to returned creator/group name} ioObjID: LONGINT); {creator/group ID} CopyParam: (ioDstVRefNum: INTEGER; {destination vol identifier} filler8: INTEGER; ioNewName: Ptr; {ptr to destination pathname} ioCopyName: Ptr; {ptr to optional name} ioNewDirID: LONGINT); {destination directory ID} WDParam: (filler9: INTEGER; ioWDIndex: INTEGER; ioWDProcID: LONGINT; ioWDVRefNum: INTEGER; filler10: INTEGER; filler11: LONGINT; filler12: LONGINT; filler13: LONGINT; ioWDDirID: LONGINT); FIDParam: (filler14: LONGINT; ioDestNamePtr: StringPtr; filler15: LONGINT; ioDestDirID: LONGINT; filler16: LONGINT; filler17: LONGINT; ioSrcDirID: LONGINT; filler18: INTEGER; ioFileID: LONGINT); CSParam: (ioMatchPtr: FSSpecArrayPtr; {match array} ioReqMatchCount: LONGINT; {maximum allowable matches} ioActMatchCount: LONGINT; {actual match count} ioSearchBits: LONGINT; {search criteria selector} ioSearchInfo1: CInfoPBPtr; {search values and range lower bounds} ioSearchInfo2: CInfoPBPtr; {search values and range upper bounds} ioSearchTime: LONGINT; {length of time to run the search} ioCatPosition: CatPositionRec; {current position in the catalog} ioOptBuffer: Ptr; {optional performance enhancement buffer} ioOptBufSize: LONGINT); {length of buffer pointed to by ioOptBuffer} ForeignPrivParam: (filler21: LONGINT; filler22: LONGINT; ioForeignPrivBuffer: Ptr; ioForeignPrivReqCount: LONGINT; ioForeignPrivActCount: LONGINT; filler23: LONGINT; ioForeignPrivDirID: LONGINT; ioForeignPrivInfo1: LONGINT; ioForeignPrivInfo2: LONGINT; ioForeignPrivInfo3: LONGINT; ioForeignPrivInfo4: LONGINT); END; æKY CMovePBRec æT struct æFc Files.p æD CMovePBPtr = ^CMovePBRec; CMovePBRec = RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; filler1: LONGINT; ioNewName: StringPtr; filler2: LONGINT; ioNewDirID: LONGINT; filler3: ARRAY [1..2] OF LONGINT; ioDirID: LONGINT; END; æKY WDPBRec æT struct æFc Files.p æD WDPBPtr = ^WDPBRec; WDPBRec = RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; filler1: INTEGER; ioWDIndex: INTEGER; ioWDProcID: LONGINT; ioWDVRefNum: INTEGER; filler2: ARRAY [1..7] OF INTEGER; ioWDDirID: LONGINT; END; æKY FCBPBRec æT struct æFc Files.p æD FCBPBPtr = ^FCBPBRec; FCBPBRec = RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; ioRefNum: INTEGER; filler: INTEGER; ioFCBIndx: INTEGER; filler1: INTEGER; ioFCBFlNm: LONGINT; ioFCBFlags: INTEGER; ioFCBStBlk: INTEGER; ioFCBEOF: LONGINT; ioFCBPLen: LONGINT; ioFCBCrPs: LONGINT; ioFCBVRefNum: INTEGER; ioFCBClpSiz: LONGINT; ioFCBParID: LONGINT; END; æKY NumVersion æT struct æFc Files.p æD NumVersion = PACKED RECORD CASE INTEGER OF 0: (majorRev: SignedByte; {1st part of version number in BCD} minorRev: 0..9; {2nd part is 1 nibble in BCD} bugFixRev: 0..9; {3rd part is 1 nibble in BCD} stage: SignedByte; {stage code: dev, alpha, beta, final} nonRelRev: SignedByte); {revision level of non-released version} 1: (version: LONGINT); {to use all 4 fields at one time} END; æKY VersRec æT struct æFc Files.p æD VersRecPtr = ^VersRec; VersRecHndl = ^VersRecPtr; VersRec = RECORD numericVersion: NumVersion; {encoded version number} countryCode: INTEGER; {country code from intl utilities} shortVersion: Str255; {version number string - worst case} reserved: Str255; {longMessage string packed after shortVersion} END; æKY PBOpen æT Function æFc Files.p æD FUNCTION PBOpen(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBOpenSync æT Function æFc Files.p æD FUNCTION PBOpenSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A000,$3E80; æKY PBOpenAsync æT Function æFc Files.p æD FUNCTION PBOpenAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A400,$3E80; æKY PBClose æT Function æFc Files.p æD FUNCTION PBClose(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBCloseSync æT Function æFc Files.p æD FUNCTION PBCloseSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A001,$3E80; æKY PBCloseAsync æT Function æFc Files.p æD FUNCTION PBCloseAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A401,$3E80; æKY PBRead æT Function æFc Files.p æD FUNCTION PBRead(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBReadSync æT Function æFc Files.p æD FUNCTION PBReadSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A002,$3E80; æKY PBReadAsync æT Function æFc Files.p æD FUNCTION PBReadAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A402,$3E80; æKY PBWrite æT Function æFc Files.p æD FUNCTION PBWrite(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBWriteSync æT Function æFc Files.p æD FUNCTION PBWriteSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A003,$3E80; æKY PBWriteAsync æT Function æFc Files.p æD FUNCTION PBWriteAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A403,$3E80; æKY PBGetVInfo æT Function æFc Files.p æD FUNCTION PBGetVInfo(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBGetVInfoSync æT Function æFc Files.p æD FUNCTION PBGetVInfoSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A007,$3E80; æKY PBGetVInfoAsync æT Function æFc Files.p æD FUNCTION PBGetVInfoAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A407,$3E80; æKY PBGetVol æT Function æFc Files.p æD FUNCTION PBGetVol(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBGetVolSync æT Function æFc Files.p æD FUNCTION PBGetVolSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A014,$3E80; æKY PBGetVolAsync æT Function æFc Files.p æD FUNCTION PBGetVolAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A414,$3E80; æKY PBSetVol æT Function æFc Files.p æD FUNCTION PBSetVol(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetVolSync æT Function æFc Files.p æD FUNCTION PBSetVolSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A015,$3E80; æKY PBSetVolAsync æT Function æFc Files.p æD FUNCTION PBSetVolAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A415,$3E80; æKY PBFlushVol æT Function æFc Files.p æD FUNCTION PBFlushVol(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBFlushVolSync æT Function æFc Files.p æD FUNCTION PBFlushVolSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A013,$3E80; æKY PBFlushVolAsync æT Function æFc Files.p æD FUNCTION PBFlushVolAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A413,$3E80; æKY PBCreate æT Function æFc Files.p æD FUNCTION PBCreate(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBCreateSync æT Function æFc Files.p æD FUNCTION PBCreateSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A008,$3E80; æKY PBCreateAsync æT Function æFc Files.p æD FUNCTION PBCreateAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A408,$3E80; æKY PBDelete æT Function æFc Files.p æD FUNCTION PBDelete(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBDeleteSync æT Function æFc Files.p æD FUNCTION PBDeleteSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A009,$3E80; æKY PBDeleteAsync æT Function æFc Files.p æD FUNCTION PBDeleteAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A409,$3E80; æKY PBOpenDF æT Function æFc Files.p æD FUNCTION PBOpenDF(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBOpenDFSync æT Function æFc Files.p æD FUNCTION PBOpenDFSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$701A,$A060,$3E80; æKY PBOpenDFAsync æT Function æFc Files.p æD FUNCTION PBOpenDFAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$701A,$A460,$3E80; æKY PBOpenRF æT Function æFc Files.p æD FUNCTION PBOpenRF(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBOpenRFSync æT Function æFc Files.p æD FUNCTION PBOpenRFSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A00A,$3E80; æKY PBOpenRFAsync æT Function æFc Files.p æD FUNCTION PBOpenRFAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A40A,$3E80; æKY PBRename æT Function æFc Files.p æD FUNCTION PBRename(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBRenameSync æT Function æFc Files.p æD FUNCTION PBRenameSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A00B,$3E80; æKY PBRenameAsync æT Function æFc Files.p æD FUNCTION PBRenameAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A40B,$3E80; æKY PBGetFInfo æT Function æFc Files.p æD FUNCTION PBGetFInfo(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBGetFInfoSync æT Function æFc Files.p æD FUNCTION PBGetFInfoSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A00C,$3E80; æKY PBGetFInfoAsync æT Function æFc Files.p æD FUNCTION PBGetFInfoAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A40C,$3E80; æKY PBSetFInfo æT Function æFc Files.p æD FUNCTION PBSetFInfo(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetFInfoSync æT Function æFc Files.p æD FUNCTION PBSetFInfoSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A00D,$3E80; æKY PBSetFInfoAsync æT Function æFc Files.p æD FUNCTION PBSetFInfoAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A40D,$3E80; æKY PBSetFLock æT Function æFc Files.p æD FUNCTION PBSetFLock(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetFLockSync æT Function æFc Files.p æD FUNCTION PBSetFLockSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A041,$3E80; æKY PBSetFLockAsync æT Function æFc Files.p æD FUNCTION PBSetFLockAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A441,$3E80; æKY PBRstFLock æT Function æFc Files.p æD FUNCTION PBRstFLock(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBRstFLockSync æT Function æFc Files.p æD FUNCTION PBRstFLockSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A042,$3E80; æKY PBRstFLockAsync æT Function æFc Files.p æD FUNCTION PBRstFLockAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A442,$3E80; æKY PBSetFVers æT Function æFc Files.p æD FUNCTION PBSetFVers(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetFVersSync æT Function æFc Files.p æD FUNCTION PBSetFVersSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A043,$3E80; æKY PBSetFVersAsync æT Function æFc Files.p æD FUNCTION PBSetFVersAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A443,$3E80; æKY PBAllocate æT Function æFc Files.p æD FUNCTION PBAllocate(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBAllocateSync æT Function æFc Files.p æD FUNCTION PBAllocateSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A010,$3E80; æKY PBAllocateAsync æT Function æFc Files.p æD FUNCTION PBAllocateAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A410,$3E80; æKY PBGetEOF æT Function æFc Files.p æD FUNCTION PBGetEOF(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBGetEOFSync æT Function æFc Files.p æD FUNCTION PBGetEOFSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A011,$3E80; æKY PBGetEOFAsync æT Function æFc Files.p æD FUNCTION PBGetEOFAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A411,$3E80; æKY PBSetEOF æT Function æFc Files.p æD FUNCTION PBSetEOF(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetEOFSync æT Function æFc Files.p æD FUNCTION PBSetEOFSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A012,$3E80; æKY PBSetEOFAsync æT Function æFc Files.p æD FUNCTION PBSetEOFAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A412,$3E80; æKY PBGetFPos æT Function æFc Files.p æD FUNCTION PBGetFPos(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBGetFPosSync æT Function æFc Files.p æD FUNCTION PBGetFPosSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A018,$3E80; æKY PBGetFPosAsync æT Function æFc Files.p æD FUNCTION PBGetFPosAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A418,$3E80; æKY PBSetFPos æT Function æFc Files.p æD FUNCTION PBSetFPos(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetFPosSync æT Function æFc Files.p æD FUNCTION PBSetFPosSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A044,$3E80; æKY PBSetFPosAsync æT Function æFc Files.p æD FUNCTION PBSetFPosAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A444,$3E80; æKY PBFlushFile æT Function æFc Files.p æD FUNCTION PBFlushFile(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBFlushFileSync æT Function æFc Files.p æD FUNCTION PBFlushFileSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A045,$3E80; æKY PBFlushFileAsync æT Function æFc Files.p æD FUNCTION PBFlushFileAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A445,$3E80; æKY PBMountVol æT Function æFc Files.p æD FUNCTION PBMountVol(paramBlock: ParmBlkPtr): OSErr; æKY PBUnmountVol æT Function æFc Files.p æD FUNCTION PBUnmountVol(paramBlock: ParmBlkPtr): OSErr; æKY PBEject æT Function æFc Files.p æD FUNCTION PBEject(paramBlock: ParmBlkPtr): OSErr; æKY PBOffLine æT Function æFc Files.p æD FUNCTION PBOffLine(paramBlock: ParmBlkPtr): OSErr; æKY PBCatSearch æT Function æFc Files.p æD FUNCTION PBCatSearch(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBCatSearchSync æT Function æFc Files.p æD FUNCTION PBCatSearchSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7018,$A060,$3E80; æKY PBCatSearchAsync æT Function æFc Files.p æD FUNCTION PBCatSearchAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7018,$A460,$3E80; æKY AddDrive æT Function æFc Files.p æD PROCEDURE AddDrive(drvrRefNum: INTEGER;drvNum: INTEGER;qEl: DrvQElPtr); æKY FSOpen æT Function æFc Files.p æD FUNCTION FSOpen(fileName: Str255;vRefNum: INTEGER;VAR refNum: INTEGER): OSErr; æKY OpenDF æT Function æFc Files.p æD FUNCTION OpenDF(fileName: Str255;vRefNum: INTEGER;VAR refNum: INTEGER): OSErr; æKY FSClose æT Function æFc Files.p æD FUNCTION FSClose(refNum: INTEGER): OSErr; æKY FSRead æT Function æFc Files.p æD FUNCTION FSRead(refNum: INTEGER;VAR count: LONGINT;buffPtr: Ptr): OSErr; æKY FSWrite æT Function æFc Files.p æD FUNCTION FSWrite(refNum: INTEGER;VAR count: LONGINT;buffPtr: Ptr): OSErr; æKY GetVInfo æT Function æFc Files.p æD FUNCTION GetVInfo(drvNum: INTEGER;volName: StringPtr;VAR vRefNum: INTEGER; VAR freeBytes: LONGINT): OSErr; æKY GetFInfo æT Function æFc Files.p æD FUNCTION GetFInfo(fileName: Str255;vRefNum: INTEGER;VAR fndrInfo: FInfo): OSErr; æKY GetVol æT Function æFc Files.p æD FUNCTION GetVol(volName: StringPtr;VAR vRefNum: INTEGER): OSErr; æKY SetVol æT Function æFc Files.p æD FUNCTION SetVol(volName: StringPtr;vRefNum: INTEGER): OSErr; æKY UnmountVol æT Function æFc Files.p æD FUNCTION UnmountVol(volName: StringPtr;vRefNum: INTEGER): OSErr; æKY Eject æT Function æFc Files.p æD FUNCTION Eject(volName: StringPtr;vRefNum: INTEGER): OSErr; æKY FlushVol æT Function æFc Files.p æD FUNCTION FlushVol(volName: StringPtr;vRefNum: INTEGER): OSErr; æKY Create æT Function æFc Files.p æD FUNCTION Create(fileName: Str255;vRefNum: INTEGER;creator: OSType;fileType: OSType): OSErr; æKY FSDelete æT Function æFc Files.p æD FUNCTION FSDelete(fileName: Str255;vRefNum: INTEGER): OSErr; æKY OpenRF æT Function æFc Files.p æD FUNCTION OpenRF(fileName: Str255;vRefNum: INTEGER;VAR refNum: INTEGER): OSErr; æKY Rename æT Function æFc Files.p æD FUNCTION Rename(oldName: Str255;vRefNum: INTEGER;newName: Str255): OSErr; æKY SetFInfo æT Function æFc Files.p æD FUNCTION SetFInfo(fileName: Str255;vRefNum: INTEGER;fndrInfo: FInfo): OSErr; æKY SetFLock æT Function æFc Files.p æD FUNCTION SetFLock(fileName: Str255;vRefNum: INTEGER): OSErr; æKY RstFLock æT Function æFc Files.p æD FUNCTION RstFLock(fileName: Str255;vRefNum: INTEGER): OSErr; æKY Allocate æT Function æFc Files.p æD FUNCTION Allocate(refNum: INTEGER;VAR count: LONGINT): OSErr; æKY GetEOF æT Function æFc Files.p æD FUNCTION GetEOF(refNum: INTEGER;VAR logEOF: LONGINT): OSErr; æKY SetEOF æT Function æFc Files.p æD FUNCTION SetEOF(refNum: INTEGER;logEOF: LONGINT): OSErr; æKY GetFPos æT Function æFc Files.p æD FUNCTION GetFPos(refNum: INTEGER;VAR filePos: LONGINT): OSErr; æKY SetFPos æT Function æFc Files.p æD FUNCTION SetFPos(refNum: INTEGER;posMode: INTEGER;posOff: LONGINT): OSErr; æKY GetVRefNum æT Function æFc Files.p æD FUNCTION GetVRefNum(fileRefNum: INTEGER;VAR vRefNum: INTEGER): OSErr; æKY PBOpenWD æT Function æFc Files.p æD FUNCTION PBOpenWD(paramBlock: WDPBPtr;async: BOOLEAN): OSErr; æKY PBOpenWDSync æT Function æFc Files.p æD FUNCTION PBOpenWDSync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$7001,$A260,$3E80; æKY PBOpenWDAsync æT Function æFc Files.p æD FUNCTION PBOpenWDAsync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$7001,$A660,$3E80; æKY PBCloseWD æT Function æFc Files.p æD FUNCTION PBCloseWD(paramBlock: WDPBPtr;async: BOOLEAN): OSErr; æKY PBCloseWDSync æT Function æFc Files.p æD FUNCTION PBCloseWDSync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$7002,$A260,$3E80; æKY PBCloseWDAsync æT Function æFc Files.p æD FUNCTION PBCloseWDAsync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$7002,$A660,$3E80; æKY PBHSetVol æT Function æFc Files.p æD FUNCTION PBHSetVol(paramBlock: WDPBPtr;async: BOOLEAN): OSErr; æKY PBHSetVolSync æT Function æFc Files.p æD FUNCTION PBHSetVolSync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$A215,$3E80; æKY PBHSetVolAsync æT Function æFc Files.p æD FUNCTION PBHSetVolAsync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$A615,$3E80; æKY PBHGetVol æT Function æFc Files.p æD FUNCTION PBHGetVol(paramBlock: WDPBPtr;async: BOOLEAN): OSErr; æKY PBHGetVolSync æT Function æFc Files.p æD FUNCTION PBHGetVolSync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$A214,$3E80; æKY PBHGetVolAsync æT Function æFc Files.p æD FUNCTION PBHGetVolAsync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$A614,$3E80; æKY PBCatMove æT Function æFc Files.p æD FUNCTION PBCatMove(paramBlock: CMovePBPtr;async: BOOLEAN): OSErr; æKY PBCatMoveSync æT Function æFc Files.p æD FUNCTION PBCatMoveSync(paramBlock: CMovePBPtr): OSErr; INLINE $205F,$7005,$A260,$3E80; æKY PBCatMoveAsync æT Function æFc Files.p æD FUNCTION PBCatMoveAsync(paramBlock: CMovePBPtr): OSErr; INLINE $205F,$7005,$A660,$3E80; æKY PBDirCreate æT Function æFc Files.p æD FUNCTION PBDirCreate(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBDirCreateSync æT Function æFc Files.p æD FUNCTION PBDirCreateSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7006,$A260,$3E80; æKY PBDirCreateAsync æT Function æFc Files.p æD FUNCTION PBDirCreateAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7006,$A660,$3E80; æKY PBGetWDInfo æT Function æFc Files.p æD FUNCTION PBGetWDInfo(paramBlock: WDPBPtr;async: BOOLEAN): OSErr; æKY PBGetWDInfoSync æT Function æFc Files.p æD FUNCTION PBGetWDInfoSync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$7007,$A260,$3E80; æKY PBGetWDInfoAsync æT Function æFc Files.p æD FUNCTION PBGetWDInfoAsync(paramBlock: WDPBPtr): OSErr; INLINE $205F,$7007,$A660,$3E80; æKY PBGetFCBInfo æT Function æFc Files.p æD FUNCTION PBGetFCBInfo(paramBlock: FCBPBPtr;async: BOOLEAN): OSErr; æKY PBGetFCBInfoSync æT Function æFc Files.p æD FUNCTION PBGetFCBInfoSync(paramBlock: FCBPBPtr): OSErr; INLINE $205F,$7008,$A260,$3E80; æKY PBGetFCBInfoAsync æT Function æFc Files.p æD FUNCTION PBGetFCBInfoAsync(paramBlock: FCBPBPtr): OSErr; INLINE $205F,$7008,$A660,$3E80; æKY PBGetCatInfo æT Function æFc Files.p æD FUNCTION PBGetCatInfo(paramBlock: CInfoPBPtr;async: BOOLEAN): OSErr; æKY PBGetCatInfoSync æT Function æFc Files.p æD FUNCTION PBGetCatInfoSync(paramBlock: CInfoPBPtr): OSErr; INLINE $205F,$7009,$A260,$3E80; æKY PBGetCatInfoAsync æT Function æFc Files.p æD FUNCTION PBGetCatInfoAsync(paramBlock: CInfoPBPtr): OSErr; INLINE $205F,$7009,$A660,$3E80; æKY PBSetCatInfo æT Function æFc Files.p æD FUNCTION PBSetCatInfo(paramBlock: CInfoPBPtr;async: BOOLEAN): OSErr; æKY PBSetCatInfoSync æT Function æFc Files.p æD FUNCTION PBSetCatInfoSync(paramBlock: CInfoPBPtr): OSErr; INLINE $205F,$700A,$A260,$3E80; æKY PBSetCatInfoAsync æT Function æFc Files.p æD FUNCTION PBSetCatInfoAsync(paramBlock: CInfoPBPtr): OSErr; INLINE $205F,$700A,$A660,$3E80; æKY PBAllocContig æT Function æFc Files.p æD FUNCTION PBAllocContig(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBAllocContigSync æT Function æFc Files.p æD FUNCTION PBAllocContigSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A210,$3E80; æKY PBAllocContigAsync æT Function æFc Files.p æD FUNCTION PBAllocContigAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A610,$3E80; æKY PBLockRange æT Function æFc Files.p æD FUNCTION PBLockRange(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBLockRangeSync æT Function æFc Files.p æD FUNCTION PBLockRangeSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$7010,$A260,$3E80; æKY PBLockRangeAsync æT Function æFc Files.p æD FUNCTION PBLockRangeAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$7010,$A660,$3E80; æKY PBUnlockRange æT Function æFc Files.p æD FUNCTION PBUnlockRange(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr; æKY PBUnlockRangeSync æT Function æFc Files.p æD FUNCTION PBUnlockRangeSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$7011,$A260,$3E80; æKY PBUnlockRangeAsync æT Function æFc Files.p æD FUNCTION PBUnlockRangeAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$7011,$A660,$3E80; æKY PBSetVInfo æT Function æFc Files.p æD FUNCTION PBSetVInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetVInfoSync æT Function æFc Files.p æD FUNCTION PBSetVInfoSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$700B,$A260,$3E80; æKY PBSetVInfoAsync æT Function æFc Files.p æD FUNCTION PBSetVInfoAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$700B,$A660,$3E80; æKY PBHGetVInfo æT Function æFc Files.p æD FUNCTION PBHGetVInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHGetVInfoSync æT Function æFc Files.p æD FUNCTION PBHGetVInfoSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A207,$3E80; æKY PBHGetVInfoAsync æT Function æFc Files.p æD FUNCTION PBHGetVInfoAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A607,$3E80; æKY PBHOpen æT Function æFc Files.p æD FUNCTION PBHOpen(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHOpenSync æT Function æFc Files.p æD FUNCTION PBHOpenSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A200,$3E80; æKY PBHOpenAsync æT Function æFc Files.p æD FUNCTION PBHOpenAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A600,$3E80; æKY PBHOpenRF æT Function æFc Files.p æD FUNCTION PBHOpenRF(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHOpenRFSync æT Function æFc Files.p æD FUNCTION PBHOpenRFSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A20A,$3E80; æKY PBHOpenRFAsync æT Function æFc Files.p æD FUNCTION PBHOpenRFAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A60A,$3E80; æKY PBHOpenDF æT Function æFc Files.p æD FUNCTION PBHOpenDF(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHOpenDFSync æT Function æFc Files.p æD FUNCTION PBHOpenDFSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$701A,$A260,$3E80; æKY PBHOpenDFAsync æT Function æFc Files.p æD FUNCTION PBHOpenDFAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$701A,$A660,$3E80; æKY PBHCreate æT Function æFc Files.p æD FUNCTION PBHCreate(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHCreateSync æT Function æFc Files.p æD FUNCTION PBHCreateSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A208,$3E80; æKY PBHCreateAsync æT Function æFc Files.p æD FUNCTION PBHCreateAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A608,$3E80; æKY PBHDelete æT Function æFc Files.p æD FUNCTION PBHDelete(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHDeleteSync æT Function æFc Files.p æD FUNCTION PBHDeleteSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A209,$3E80; æKY PBHDeleteAsync æT Function æFc Files.p æD FUNCTION PBHDeleteAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A609,$3E80; æKY PBHRename æT Function æFc Files.p æD FUNCTION PBHRename(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHRenameSync æT Function æFc Files.p æD FUNCTION PBHRenameSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A20B,$3E80; æKY PBHRenameAsync æT Function æFc Files.p æD FUNCTION PBHRenameAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A60B,$3E80; æKY PBHRstFLock æT Function æFc Files.p æD FUNCTION PBHRstFLock(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHRstFLockSync æT Function æFc Files.p æD FUNCTION PBHRstFLockSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A242,$3E80; æKY PBHRstFLockAsync æT Function æFc Files.p æD FUNCTION PBHRstFLockAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A642,$3E80; æKY PBHSetFLock æT Function æFc Files.p æD FUNCTION PBHSetFLock(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHSetFLockSync æT Function æFc Files.p æD FUNCTION PBHSetFLockSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A241,$3E80; æKY PBHSetFLockAsync æT Function æFc Files.p æD FUNCTION PBHSetFLockAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A641,$3E80; æKY PBHGetFInfo æT Function æFc Files.p æD FUNCTION PBHGetFInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHGetFInfoSync æT Function æFc Files.p æD FUNCTION PBHGetFInfoSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A20C,$3E80; æKY PBHGetFInfoAsync æT Function æFc Files.p æD FUNCTION PBHGetFInfoAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A60C,$3E80; æKY PBHSetFInfo æT Function æFc Files.p æD FUNCTION PBHSetFInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHSetFInfoSync æT Function æFc Files.p æD FUNCTION PBHSetFInfoSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A20D,$3E80; æKY PBHSetFInfoAsync æT Function æFc Files.p æD FUNCTION PBHSetFInfoAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$A60D,$3E80; æKY PBMakeFSSpec æT Function æFc Files.p æD FUNCTION PBMakeFSSpec(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBMakeFSSpecSync æT Function æFc Files.p æD FUNCTION PBMakeFSSpecSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$701B,$A260,$3E80; æKY PBMakeFSSpecAsync æT Function æFc Files.p æD FUNCTION PBMakeFSSpecAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$701B,$A660,$3E80; æKY FInitQueue æT Function æFc Files.p æD PROCEDURE FInitQueue; INLINE $A016; æKY GetFSQHdr æT Function æFc Files.p æD FUNCTION GetFSQHdr: QHdrPtr; INLINE $2EBC,$0000,$0360; æKY GetDrvQHdr æT Function æFc Files.p æD FUNCTION GetDrvQHdr: QHdrPtr; INLINE $2EBC,$0000,$0308; æKY GetVCBQHdr æT Function æFc Files.p æD FUNCTION GetVCBQHdr: QHdrPtr; INLINE $2EBC,$0000,$0356; æKY HGetVol æT Function æFc Files.p æD FUNCTION HGetVol(volName: StringPtr;VAR vRefNum: INTEGER;VAR dirID: LONGINT): OSErr; æKY HSetVol æT Function æFc Files.p æD FUNCTION HSetVol(volName: StringPtr;vRefNum: INTEGER;dirID: LONGINT): OSErr; æKY HOpen æT Function æFc Files.p æD FUNCTION HOpen(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;permission: SignedByte; VAR refNum: INTEGER): OSErr; æKY HOpenDF æT Function æFc Files.p æD FUNCTION HOpenDF(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;permission: SignedByte; VAR refNum: INTEGER): OSErr; æKY HOpenRF æT Function æFc Files.p æD FUNCTION HOpenRF(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;permission: SignedByte; VAR refNum: INTEGER): OSErr; æKY AllocContig æT Function æFc Files.p æD FUNCTION AllocContig(refNum: INTEGER;VAR count: LONGINT): OSErr; æKY HCreate æT Function æFc Files.p æD FUNCTION HCreate(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;creator: OSType; fileType: OSType): OSErr; æKY DirCreate æT Function æFc Files.p æD FUNCTION DirCreate(vRefNum: INTEGER;parentDirID: LONGINT;directoryName: Str255; VAR createdDirID: LONGINT): OSErr; æKY HDelete æT Function æFc Files.p æD FUNCTION HDelete(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255): OSErr; æKY HGetFInfo æT Function æFc Files.p æD FUNCTION HGetFInfo(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;VAR fndrInfo: FInfo): OSErr; æKY HSetFInfo æT Function æFc Files.p æD FUNCTION HSetFInfo(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255;fndrInfo: FInfo): OSErr; æKY HSetFLock æT Function æFc Files.p æD FUNCTION HSetFLock(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255): OSErr; æKY HRstFLock æT Function æFc Files.p æD FUNCTION HRstFLock(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255): OSErr; æKY HRename æT Function æFc Files.p æD FUNCTION HRename(vRefNum: INTEGER;dirID: LONGINT;oldName: Str255;newName: Str255): OSErr; æKY CatMove æT Function æFc Files.p æD FUNCTION CatMove(vRefNum: INTEGER;dirID: LONGINT;oldName: Str255;newDirID: LONGINT; newName: Str255): OSErr; æKY OpenWD æT Function æFc Files.p æD FUNCTION OpenWD(vRefNum: INTEGER;dirID: LONGINT;procID: LONGINT;VAR wdRefNum: INTEGER): OSErr; æKY CloseWD æT Function æFc Files.p æD FUNCTION CloseWD(wdRefNum: INTEGER): OSErr; æKY GetWDInfo æT Function æFc Files.p æD FUNCTION GetWDInfo(wdRefNum: INTEGER;VAR vRefNum: INTEGER;VAR dirID: LONGINT; VAR procID: LONGINT): OSErr; æKY PBHGetVolParms æT Function æFc Files.p æD FUNCTION PBHGetVolParms(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHGetVolParmsSync æT Function æFc Files.p æD FUNCTION PBHGetVolParmsSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7030,$A260,$3E80; æKY PBHGetVolParmsAsync æT Function æFc Files.p æD FUNCTION PBHGetVolParmsAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7030,$A660,$3E80; æKY PBHGetLogInInfo æT Function æFc Files.p æD FUNCTION PBHGetLogInInfo(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHGetLogInInfoSync æT Function æFc Files.p æD FUNCTION PBHGetLogInInfoSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7031,$A260,$3E80; æKY PBHGetLogInInfoAsync æT Function æFc Files.p æD FUNCTION PBHGetLogInInfoAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7031,$A660,$3E80; æKY PBHGetDirAccess æT Function æFc Files.p æD FUNCTION PBHGetDirAccess(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHGetDirAccessSync æT Function æFc Files.p æD FUNCTION PBHGetDirAccessSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7032,$A260,$3E80; æKY PBHGetDirAccessAsync æT Function æFc Files.p æD FUNCTION PBHGetDirAccessAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7032,$A660,$3E80; æKY PBHSetDirAccess æT Function æFc Files.p æD FUNCTION PBHSetDirAccess(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHSetDirAccessSync æT Function æFc Files.p æD FUNCTION PBHSetDirAccessSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7033,$A260,$3E80; æKY PBHSetDirAccessAsync æT Function æFc Files.p æD FUNCTION PBHSetDirAccessAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7033,$A660,$3E80; æKY PBHMapID æT Function æFc Files.p æD FUNCTION PBHMapID(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHMapIDSync æT Function æFc Files.p æD FUNCTION PBHMapIDSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7034,$A260,$3E80; æKY PBHMapIDAsync æT Function æFc Files.p æD FUNCTION PBHMapIDAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7034,$A660,$3E80; æKY PBHMapName æT Function æFc Files.p æD FUNCTION PBHMapName(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHMapNameSync æT Function æFc Files.p æD FUNCTION PBHMapNameSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7035,$A260,$3E80; æKY PBHMapNameAsync æT Function æFc Files.p æD FUNCTION PBHMapNameAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7035,$A660,$3E80; æKY PBHCopyFile æT Function æFc Files.p æD FUNCTION PBHCopyFile(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHCopyFileSync æT Function æFc Files.p æD FUNCTION PBHCopyFileSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7036,$A260,$3E80; æKY PBHCopyFileAsync æT Function æFc Files.p æD FUNCTION PBHCopyFileAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7036,$A660,$3E80; æKY PBHMoveRename æT Function æFc Files.p æD FUNCTION PBHMoveRename(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHMoveRenameSync æT Function æFc Files.p æD FUNCTION PBHMoveRenameSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7037,$A260,$3E80; æKY PBHMoveRenameAsync æT Function æFc Files.p æD FUNCTION PBHMoveRenameAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7037,$A660,$3E80; æKY PBHOpenDeny æT Function æFc Files.p æD FUNCTION PBHOpenDeny(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHOpenDenySync æT Function æFc Files.p æD FUNCTION PBHOpenDenySync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7038,$A260,$3E80; æKY PBHOpenDenyAsync æT Function æFc Files.p æD FUNCTION PBHOpenDenyAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7038,$A660,$3E80; æKY PBHOpenRFDeny æT Function æFc Files.p æD FUNCTION PBHOpenRFDeny(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBHOpenRFDenySync æT Function æFc Files.p æD FUNCTION PBHOpenRFDenySync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7039,$A260,$3E80; æKY PBHOpenRFDenyAsync æT Function æFc Files.p æD FUNCTION PBHOpenRFDenyAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7039,$A660,$3E80; æKY PBExchangeFiles æT Function æFc Files.p æD FUNCTION PBExchangeFiles(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBExchangeFilesSync æT Function æFc Files.p æD FUNCTION PBExchangeFilesSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7017,$A260,$3E80; æKY PBExchangeFilesAsync æT Function æFc Files.p æD FUNCTION PBExchangeFilesAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7017,$A660,$3E80; æKY PBCreateFileIDRef æT Function æFc Files.p æD FUNCTION PBCreateFileIDRef(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBCreateFileIDRefSync æT Function æFc Files.p æD FUNCTION PBCreateFileIDRefSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7014,$A260,$3E80; æKY PBCreateFileIDRefAsync æT Function æFc Files.p æD FUNCTION PBCreateFileIDRefAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7014,$A660,$3E80; æKY PBResolveFileIDRef æT Function æFc Files.p æD FUNCTION PBResolveFileIDRef(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBResolveFileIDRefSync æT Function æFc Files.p æD FUNCTION PBResolveFileIDRefSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7016,$A260,$3E80; æKY PBResolveFileIDRefAsync æT Function æFc Files.p æD FUNCTION PBResolveFileIDRefAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7016,$A660,$3E80; æKY PBDeleteFileIDRef æT Function æFc Files.p æD FUNCTION PBDeleteFileIDRef(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBDeleteFileIDRefSync æT Function æFc Files.p æD FUNCTION PBDeleteFileIDRefSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7015,$A260,$3E80; æKY PBDeleteFileIDRefAsync æT Function æFc Files.p æD FUNCTION PBDeleteFileIDRefAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7015,$A660,$3E80; æKY PBGetForeignPrivs æT Function æFc Files.p æD FUNCTION PBGetForeignPrivs(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBGetForeignPrivsSync æT Function æFc Files.p æD FUNCTION PBGetForeignPrivsSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7060,$A060,$3E80; æKY PBGetForeignPrivsAsync æT Function æFc Files.p æD FUNCTION PBGetForeignPrivsAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7060,$A460,$3E80; æKY PBSetForeignPrivs æT Function æFc Files.p æD FUNCTION PBSetForeignPrivs(paramBlock: HParmBlkPtr;async: BOOLEAN): OSErr; æKY PBSetForeignPrivsSync æT Function æFc Files.p æD FUNCTION PBSetForeignPrivsSync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7061,$A060,$3E80; æKY PBSetForeignPrivsAsync æT Function æFc Files.p æD FUNCTION PBSetForeignPrivsAsync(paramBlock: HParmBlkPtr): OSErr; INLINE $205F,$7061,$A460,$3E80; æKY PBDTGetPath æT Function æFc Files.p æD FUNCTION PBDTGetPath(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7020,$A260,$3E80; æKY PBDTCloseDown æT Function æFc Files.p æD FUNCTION PBDTCloseDown(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7021,$A260,$3E80; æKY PBDTAddIcon æT Function æFc Files.p æD FUNCTION PBDTAddIcon(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTAddIconSync æT Function æFc Files.p æD FUNCTION PBDTAddIconSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7022,$A260,$3E80; æKY PBDTAddIconAsync æT Function æFc Files.p æD FUNCTION PBDTAddIconAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7022,$A660,$3E80; æKY PBDTGetIcon æT Function æFc Files.p æD FUNCTION PBDTGetIcon(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTGetIconSync æT Function æFc Files.p æD FUNCTION PBDTGetIconSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7023,$A260,$3E80; æKY PBDTGetIconAsync æT Function æFc Files.p æD FUNCTION PBDTGetIconAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7023,$A660,$3E80; æKY PBDTGetIconInfo æT Function æFc Files.p æD FUNCTION PBDTGetIconInfo(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTGetIconInfoSync æT Function æFc Files.p æD FUNCTION PBDTGetIconInfoSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7024,$A260,$3E80; æKY PBDTGetIconInfoAsync æT Function æFc Files.p æD FUNCTION PBDTGetIconInfoAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7024,$A660,$3E80; æKY PBDTAddAPPL æT Function æFc Files.p æD FUNCTION PBDTAddAPPL(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTAddAPPLSync æT Function æFc Files.p æD FUNCTION PBDTAddAPPLSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7025,$A260,$3E80; æKY PBDTAddAPPLAsync æT Function æFc Files.p æD FUNCTION PBDTAddAPPLAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7025,$A660,$3E80; æKY PBDTRemoveAPPL æT Function æFc Files.p æD FUNCTION PBDTRemoveAPPL(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTRemoveAPPLSync æT Function æFc Files.p æD FUNCTION PBDTRemoveAPPLSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7026,$A260,$3E80; æKY PBDTRemoveAPPLAsync æT Function æFc Files.p æD FUNCTION PBDTRemoveAPPLAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7026,$A660,$3E80; æKY PBDTGetAPPL æT Function æFc Files.p æD FUNCTION PBDTGetAPPL(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTGetAPPLSync æT Function æFc Files.p æD FUNCTION PBDTGetAPPLSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7027,$A260,$3E80; æKY PBDTGetAPPLAsync æT Function æFc Files.p æD FUNCTION PBDTGetAPPLAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7027,$A660,$3E80; æKY PBDTSetComment æT Function æFc Files.p æD FUNCTION PBDTSetComment(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTSetCommentSync æT Function æFc Files.p æD FUNCTION PBDTSetCommentSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7028,$A260,$3E80; æKY PBDTSetCommentAsync æT Function æFc Files.p æD FUNCTION PBDTSetCommentAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7028,$A660,$3E80; æKY PBDTRemoveComment æT Function æFc Files.p æD FUNCTION PBDTRemoveComment(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTRemoveCommentSync æT Function æFc Files.p æD FUNCTION PBDTRemoveCommentSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7029,$A260,$3E80; æKY PBDTRemoveCommentAsync æT Function æFc Files.p æD FUNCTION PBDTRemoveCommentAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$7029,$A660,$3E80; æKY PBDTGetComment æT Function æFc Files.p æD FUNCTION PBDTGetComment(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTGetCommentSync æT Function æFc Files.p æD FUNCTION PBDTGetCommentSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702A,$A260,$3E80; æKY PBDTGetCommentAsync æT Function æFc Files.p æD FUNCTION PBDTGetCommentAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702A,$A660,$3E80; æKY PBDTFlush æT Function æFc Files.p æD FUNCTION PBDTFlush(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTFlushSync æT Function æFc Files.p æD FUNCTION PBDTFlushSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702B,$A260,$3E80; æKY PBDTFlushAsync æT Function æFc Files.p æD FUNCTION PBDTFlushAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702B,$A660,$3E80; æKY PBDTReset æT Function æFc Files.p æD FUNCTION PBDTReset(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTResetSync æT Function æFc Files.p æD FUNCTION PBDTResetSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702C,$A260,$3E80; æKY PBDTResetAsync æT Function æFc Files.p æD FUNCTION PBDTResetAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702C,$A660,$3E80; æKY PBDTGetInfo æT Function æFc Files.p æD FUNCTION PBDTGetInfo(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTGetInfoSync æT Function æFc Files.p æD FUNCTION PBDTGetInfoSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702D,$A260,$3E80; æKY PBDTGetInfoAsync æT Function æFc Files.p æD FUNCTION PBDTGetInfoAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702D,$A660,$3E80; æKY PBDTOpenInform æT Function æFc Files.p æD FUNCTION PBDTOpenInform(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702E,$A060,$3E80; æKY PBDTDelete æT Function æFc Files.p æD FUNCTION PBDTDelete(paramBlock: DTPBPtr;async: BOOLEAN): OSErr; æKY PBDTDeleteSync æT Function æFc Files.p æD FUNCTION PBDTDeleteSync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702F,$A060,$3E80; æKY PBDTDeleteAsync æT Function æFc Files.p æD FUNCTION PBDTDeleteAsync(paramBlock: DTPBPtr): OSErr; INLINE $205F,$702F,$A460,$3E80; æKY PBGetVolMountInfoSize æT Function æFc Files.p æD FUNCTION PBGetVolMountInfoSize(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$703F,$A260,$3E80; æKY PBGetVolMountInfo æT Function æFc Files.p æD FUNCTION PBGetVolMountInfo(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$7040,$A260,$3E80; æKY PBVolumeMount æT Function æFc Files.p æD FUNCTION PBVolumeMount(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$7041,$A260,$3E80; æKY FSMakeFSSpec æT Function æFc Files.p æD FUNCTION FSMakeFSSpec(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255; VAR spec: FSSpec): OSErr; INLINE $303C, $0001, $AA52; æKY FSpOpenDF æT Function æFc Files.p æD FUNCTION FSpOpenDF(spec: FSSpec;permission: SignedByte;VAR refNum: INTEGER): OSErr; INLINE $303C, $0002, $AA52; æKY FSpOpenRF æT Function æFc Files.p æD FUNCTION FSpOpenRF(spec: FSSpec ;permission: SignedByte;VAR refNum: INTEGER): OSErr; INLINE $303C, $0003, $AA52; æKY FSpCreate æT Function æFc Files.p æD FUNCTION FSpCreate(spec: FSSpec ;creator: OSType;fileType: OSType;scriptTag: ScriptCode): OSErr; INLINE $303C, $0004, $AA52; æKY FSpDirCreate æT Function æFc Files.p æD FUNCTION FSpDirCreate(spec: FSSpec;scriptTag: ScriptCode;VAR createdDirID: LONGINT): OSErr; INLINE $303C, $0005, $AA52; æKY FSpDelete æT Function æFc Files.p æD FUNCTION FSpDelete(spec: FSSpec): OSErr; INLINE $303C, $0006, $AA52; æKY FSpGetFInfo æT Function æFc Files.p æD FUNCTION FSpGetFInfo(spec: FSSpec;VAR fndrInfo: FInfo): OSErr; INLINE $303C, $0007, $AA52; æKY FSpSetFInfo æT Function æFc Files.p æD FUNCTION FSpSetFInfo(spec: FSSpec;fndrInfo: FInfo): OSErr; INLINE $303C, $0008, $AA52; æKY FSpSetFLock æT Function æFc Files.p æD FUNCTION FSpSetFLock(spec: FSSpec): OSErr; INLINE $303C, $0009, $AA52; æKY FSpRstFLock æT Function æFc Files.p æD FUNCTION FSpRstFLock(spec: FSSpec): OSErr; INLINE $303C, $000A, $AA52; æKY FSpRename æT Function æFc Files.p æD FUNCTION FSpRename(spec: FSSpec;newName: Str255): OSErr; INLINE $303C, $000B, $AA52; æKY FSpCatMove æT Function æFc Files.p æD FUNCTION FSpCatMove(source: FSSpec;dest: FSSpec): OSErr; INLINE $303C, $000C, $AA52; æKY FSpExchangeFiles æT Function æFc Files.p æD FUNCTION FSpExchangeFiles(source: FSSpec;dest: FSSpec): OSErr; INLINE $303C, $000F, $AA52; æKY Folders.p æKL FindFolder kAppleMenuFolderType kControlPanelFolderType kCreateFolder kDesktopFolderType kDontCreateFolder kExtensionFolderType kOnSystemDisk kPreferencesFolderType kPrintMonitorDocsFolderType kStartupFolderType kSystemFolderType kTemporaryFolderType kTrashFolderType kWhereToEmptyTrashFolderType æKY kOnSystemDisk æT constant æFc Folders.p æD kOnSystemDisk = $8000; æKY kCreateFolder æT constant æFc Folders.p æD kCreateFolder = TRUE; æKY kDontCreateFolder æT constant æFc Folders.p æD kDontCreateFolder = FALSE; æKY kSystemFolderType æT constant æFc Folders.p æD kSystemFolderType = 'macs'; {the system folder} æKY kDesktopFolderType æT constant æFc Folders.p æD kDesktopFolderType = 'desk'; {the desktop folder; objects in this folder show on the desk top.} æKY kTrashFolderType æT constant æFc Folders.p æD kTrashFolderType = 'trsh'; {the trash folder; objects in this folder show up in the trash} æKY kWhereToEmptyTrashFolderType æT constant æFc Folders.p æD kWhereToEmptyTrashFolderType = 'empt'; {the "empty trash" folder; Finder starts empty from here down} æKY kPrintMonitorDocsFolderType æT constant æFc Folders.p æD kPrintMonitorDocsFolderType = 'prnt'; { Print Monitor documents } æKY kStartupFolderType æT constant æFc Folders.p æD kStartupFolderType = 'strt'; {Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here} æKY kAppleMenuFolderType æT constant æFc Folders.p æD kAppleMenuFolderType = 'amnu'; {Finder objects to put into the Apple menu go here} æKY kControlPanelFolderType æT constant æFc Folders.p æD kControlPanelFolderType = 'ctrl'; {Control Panels go here (may contain INITs)} æKY kExtensionFolderType æT constant æFc Folders.p æD kExtensionFolderType = 'extn'; {Finder extensions go here} æKY kPreferencesFolderType æT constant æFc Folders.p æD kPreferencesFolderType = 'pref'; {preferences for applications go here} æKY kTemporaryFolderType æT constant æFc Folders.p æD kTemporaryFolderType = 'temp'; {temporary files go here (deleted periodically, but don't rely on it.)} æKY FindFolder æT Function æFc Folders.p æD FUNCTION FindFolder(vRefNum: INTEGER;folderType: OSType;createFolder: BOOLEAN; VAR foundVRefNum: INTEGER;VAR foundDirID: LONGINT): OSErr; {$IFC SystemSevenOrLater } INLINE $7000,$A823; {$ENDC} æKY Fonts.p æKL FlushFonts FMSwapFont FontMetrics GetFNum GetFontName GetOutlinePreferred GetPreserveGlyph InitFonts IsOutline OutlineMetrics RealFont SetFontLock SetFractEnable SetFScaleDisable SetOutlinePreferred SetPreserveGlyph appleMark applFont AsscEntry athens cairo checkMark commandMark courier diamondMark FamRec fixedFont FMetricRec FMInput FMOutPtr FMOutput FontAssoc FontRec fontWid fxdFntH fxdFntHW fxdFntW geneva helvetica KernEntry KernPair KernTable london losAngeles mobile monaco NameTable newYork propFont prpFntH prpFntHW prpFntW sanFran StyleTable symbol systemFont times toronto venice WidEntry WidTable WidthTable æKY systemFont æT constant æFc Fonts.p æD systemFont = 0; æKY applFont æT constant æFc Fonts.p æD applFont = 1; æKY newYork æT constant æFc Fonts.p æD newYork = 2; æKY geneva æT constant æFc Fonts.p æD geneva = 3; æKY monaco æT constant æFc Fonts.p æD monaco = 4; æKY venice æT constant æFc Fonts.p æD venice = 5; æKY london æT constant æFc Fonts.p æD london = 6; æKY athens æT constant æFc Fonts.p æD athens = 7; æKY sanFran æT constant æFc Fonts.p æD sanFran = 8; æKY toronto æT constant æFc Fonts.p æD toronto = 9; æKY cairo æT constant æFc Fonts.p æD cairo = 11; æKY losAngeles æT constant æFc Fonts.p æD losAngeles = 12; æKY times æT constant æFc Fonts.p æD times = 20; æKY helvetica æT constant æFc Fonts.p æD helvetica = 21; æKY courier æT constant æFc Fonts.p æD courier = 22; æKY symbol æT constant æFc Fonts.p æD symbol = 23; æKY mobile æT constant æFc Fonts.p æD mobile = 24; æKY commandMark æT constant æFc Fonts.p æD commandMark = 17; æKY checkMark æT constant æFc Fonts.p æD checkMark = 18; æKY diamondMark æT constant æFc Fonts.p æD diamondMark = 19; æKY appleMark æT constant æFc Fonts.p æD appleMark = 20; æKY propFont æT constant æFc Fonts.p æD propFont = 36864; æKY prpFntH æT constant æFc Fonts.p æD prpFntH = 36865; æKY prpFntW æT constant æFc Fonts.p æD prpFntW = 36866; æKY prpFntHW æT constant æFc Fonts.p æD prpFntHW = 36867; æKY fixedFont æT constant æFc Fonts.p æD fixedFont = 45056; æKY fxdFntH æT constant æFc Fonts.p æD fxdFntH = 45057; æKY fxdFntW æT constant æFc Fonts.p æD fxdFntW = 45058; æKY fxdFntHW æT constant æFc Fonts.p æD fxdFntHW = 45059; æKY fontWid æT constant æFc Fonts.p æD fontWid = 44208; æKY FMInput æT struct æFc Fonts.p æD FMInput = PACKED RECORD family: INTEGER; size: INTEGER; face: Style; needBits: BOOLEAN; device: INTEGER; numer: Point; denom: Point; END; æKY FMOutput æT struct æFc Fonts.p æD FMOutPtr = ^FMOutput; FMOutput = PACKED RECORD errNum: INTEGER; fontHandle: Handle; bold: Byte; italic: Byte; ulOffset: Byte; ulShadow: Byte; ulThick: Byte; shadow: Byte; extra: SignedByte; ascent: Byte; descent: Byte; widMax: Byte; leading: SignedByte; unused: Byte; numer: Point; denom: Point; END; æKY FontRec æT struct æFc Fonts.p æD FontRec = RECORD fontType: INTEGER; {font type} firstChar: INTEGER; {ASCII code of first character} lastChar: INTEGER; {ASCII code of last character} widMax: INTEGER; {maximum character width} kernMax: INTEGER; {negative of maximum character kern} nDescent: INTEGER; {negative of descent} fRectWidth: INTEGER; {width of font rectangle} fRectHeight: INTEGER; {height of font rectangle} owTLoc: INTEGER; {offset to offset/width table} ascent: INTEGER; {ascent} descent: INTEGER; {descent} leading: INTEGER; {leading} rowWords: INTEGER; {row width of bit image / 2 } END; æKY FMetricRec æT struct æFc Fonts.p æD FMetricRec = RECORD ascent: Fixed; {base line to top} descent: Fixed; {base line to bottom} leading: Fixed; {leading between lines} widMax: Fixed; {maximum character width} wTabHandle: Handle; {handle to font width table} END; æKY WidEntry æT struct æFc Fonts.p æD WidEntry = RECORD widStyle: INTEGER; {style entry applies to} END; æKY WidTable æT struct æFc Fonts.p æD WidTable = RECORD numWidths: INTEGER; {number of entries - 1} END; æKY AsscEntry æT struct æFc Fonts.p æD AsscEntry = RECORD fontSize: INTEGER; fontStyle: INTEGER; fontID: INTEGER; {font resource ID} END; æKY FontAssoc æT struct æFc Fonts.p æD FontAssoc = RECORD numAssoc: INTEGER; {number of entries - 1} END; æKY StyleTable æT struct æFc Fonts.p æD StyleTable = RECORD fontClass: INTEGER; offset: LONGINT; reserved: LONGINT; indexes: ARRAY [0..47] OF SignedByte; END; æKY NameTable æT struct æFc Fonts.p æD NameTable = RECORD stringCount: INTEGER; baseFontName: Str255; END; æKY KernPair æT struct æFc Fonts.p æD KernPair = RECORD kernFirst: CHAR; {1st character of kerned pair} kernSecond: CHAR; {2nd character of kerned pair} kernWidth: INTEGER; {kerning in 1pt fixed format} END; æKY KernEntry æT struct æFc Fonts.p æD KernEntry = RECORD kernLength: INTEGER; {length of this entry} kernStyle: INTEGER; {style the entry applies to} END; æKY KernTable æT struct æFc Fonts.p æD KernTable = RECORD numKerns: INTEGER; {number of kerning entries} END; æKY WidthTable æT struct æFc Fonts.p æD WidthTable = PACKED RECORD tabData: ARRAY [1..256] OF Fixed; {character widths} tabFont: Handle; {font record used to build table} sExtra: LONGINT; {space extra used for table} style: LONGINT; {extra due to style} fID: INTEGER; {font family ID} fSize: INTEGER; {font size request} face: INTEGER; {style (face) request} device: INTEGER; {device requested} inNumer: Point; {scale factors requested} inDenom: Point; {scale factors requested} aFID: INTEGER; {actual font family ID for table} fHand: Handle; {family record used to build up table} usedFam: BOOLEAN; {used fixed point family widths} aFace: Byte; {actual face produced} vOutput: INTEGER; {vertical scale output value} hOutput: INTEGER; {horizontal scale output value} vFactor: INTEGER; {vertical scale output value} hFactor: INTEGER; {horizontal scale output value} aSize: INTEGER; {actual size of actual font used} tabSize: INTEGER; {total size of table} END; æKY FamRec æT struct æFc Fonts.p æD FamRec = RECORD ffFlags: INTEGER; {flags for family} ffFamID: INTEGER; {family ID number} ffFirstChar: INTEGER; {ASCII code of 1st character} ffLastChar: INTEGER; {ASCII code of last character} ffAscent: INTEGER; {maximum ascent for 1pt font} ffDescent: INTEGER; {maximum descent for 1pt font} ffLeading: INTEGER; {maximum leading for 1pt font} ffWidMax: INTEGER; {maximum widMax for 1pt font} ffWTabOff: LONGINT; {offset to width table} ffKernOff: LONGINT; {offset to kerning table} ffStylOff: LONGINT; {offset to style mapping table} ffProperty: ARRAY [1..9] OF INTEGER; {style property info} ffIntl: ARRAY [1..2] OF INTEGER; {for international use} ffVersion: INTEGER; {version number} END; æKY InitFonts æT Function æFc Fonts.p æD PROCEDURE InitFonts; INLINE $A8FE; æKY GetFontName æT Function æFc Fonts.p æD PROCEDURE GetFontName(familyID: INTEGER;VAR name: Str255); INLINE $A8FF; æKY GetFNum æT Function æFc Fonts.p æD PROCEDURE GetFNum(name: Str255;VAR familyID: INTEGER); INLINE $A900; æKY RealFont æT Function æFc Fonts.p æD FUNCTION RealFont(fontNum: INTEGER;size: INTEGER): BOOLEAN; INLINE $A902; æKY SetFontLock æT Function æFc Fonts.p æD PROCEDURE SetFontLock(lockFlag: BOOLEAN); INLINE $A903; æKY FMSwapFont æT Function æFc Fonts.p æD FUNCTION FMSwapFont(inRec: FMInput): FMOutPtr; INLINE $A901; æKY SetFScaleDisable æT Function æFc Fonts.p æD PROCEDURE SetFScaleDisable(fscaleDisable: BOOLEAN); INLINE $A834; æKY FontMetrics æT Function æFc Fonts.p æD PROCEDURE FontMetrics(theMetrics: FMetricRec); INLINE $A835; æKY SetFractEnable æT Function æFc Fonts.p æD PROCEDURE SetFractEnable(fractEnable: BOOLEAN); æKY IsOutline æT Function æFc Fonts.p æD FUNCTION IsOutline(numer: Point;denom: Point): BOOLEAN; INLINE $7000,$A854; æKY SetOutlinePreferred æT Function æFc Fonts.p æD PROCEDURE SetOutlinePreferred(outlinePreferred: BOOLEAN); INLINE $7001,$A854; æKY GetOutlinePreferred æT Function æFc Fonts.p æD FUNCTION GetOutlinePreferred: BOOLEAN; INLINE $7009,$A854; æKY OutlineMetrics æT Function æFc Fonts.p æD FUNCTION OutlineMetrics(byteCount: INTEGER;textPtr: UNIV Ptr;numer: Point; denom: Point;VAR yMax: INTEGER;VAR yMin: INTEGER;awArray: FixedPtr;lsbArray: FixedPtr; boundsArray: RectPtr): OSErr; INLINE $7008,$A854; æKY SetPreserveGlyph æT Function æFc Fonts.p æD PROCEDURE SetPreserveGlyph(preserveGlyph: BOOLEAN); INLINE $700A,$A854; æKY GetPreserveGlyph æT Function æFc Fonts.p æD FUNCTION GetPreserveGlyph: BOOLEAN; INLINE $700B,$A854; æKY FlushFonts æT Function æFc Fonts.p æD FUNCTION FlushFonts: OSErr; INLINE $700C,$A854; æKY GestaltEqu.p æKL Gestalt NewGestalt ReplaceGestalt gestalt32BitAddressing gestalt32BitCapable gestalt32BitQD gestalt32BitQD gestalt32BitQD12 gestalt32BitQD13 gestalt32BitSysZone gestalt68000 gestalt68010 gestalt68020 gestalt68030 gestalt68030MMU gestalt68040 gestalt68040FPU gestalt68040MMU gestalt68851 gestalt68881 gestalt68882 gestalt8BitQD gestaltADBISOKbdII gestaltADBKbdII gestaltAddressingModeAttr gestaltAliasMgrAttr gestaltAliasMgrPresent gestaltAMU gestaltAppleEventsAttr gestaltAppleEventsPresent gestaltAppleTalkVersion gestaltAUXVersion gestaltBuiltInSoundInput gestaltClassic gestaltConnMgrAttr gestaltConnMgrCMSearchFix gestaltConnMgrPresent gestaltCRMAttr gestaltCRMPresent gestaltCTBVersion gestaltDBAccessMgrAttr gestaltDBAccessMgrPresent gestaltDITLExtAttr gestaltDITLExtPresent gestaltDupSelectorErr gestaltEasyAccessAttr gestaltEasyAccessLocked gestaltEasyAccessOff gestaltEasyAccessOn gestaltEasyAccessSticky gestaltEditionMgrAttr gestaltEditionMgrPresent gestaltExtADBKbd gestaltExtendedTimeMgr gestaltExtISOADBKbd gestaltExtToolboxTable gestaltFindFolderAttr gestaltFindFolderPresent gestaltFontMgrAttr gestaltFPUType gestaltFSAttr gestaltFullExtFSDispatching gestaltFXfrMgrAttr gestaltFXfrMgrPresent gestaltHardwareAttr gestaltHasASC gestaltHasFileSystemManager gestaltHasFSSpecCalls gestaltHasGPIaToDCDa gestaltHasGPIaToRTxCa gestaltHasGPIbToDCDb gestaltHasParityCapability gestaltHasSCC gestaltHasSCSI gestaltHasSoftPowerOff gestaltHasSoundInputDevice gestaltHasVIA1 gestaltHasVIA2 gestaltHelpMgrAttr gestaltHelpMgrPresent gestaltIPCSupport gestaltKeyboardType gestaltLaunchCanReturn gestaltLaunchControl gestaltLaunchFullFileSpec gestaltLocationErr gestaltLogicalPageSize gestaltLogicalRAMSize gestaltLowMemorySize gestaltMac512KE gestaltMacAndPad gestaltMacClassic gestaltMachineIcon gestaltMachineType gestaltMacII gestaltMacIIci gestaltMacIIcx gestaltMacIIfx gestaltMacIIsi gestaltMacIIx gestaltMacKbd gestaltMacLC gestaltMacPlus gestaltMacPlusKbd gestaltMacSE gestaltMacSE030 gestaltMacXL gestaltMiscAttr gestaltMMUType gestaltNoFPU gestaltNoMMU gestaltNotificationMgrAttr gestaltNotificationPresent gestaltNuBusConnectors gestaltOriginalQD gestaltOriginalQD1 gestaltOSAttr gestaltOSTable gestaltOutlineFonts gestaltParityAttr gestaltParityEnabled gestaltPartialRsrcs gestaltPhysicalRAMSize gestaltPMgrCPUIdle gestaltPMgrExists gestaltPMgrSCC gestaltPMgrSound gestaltPopupAttr gestaltPopupPresent gestaltPortable gestaltPowerMgrAttr gestaltPPCSupportsIncoming gestaltPPCSupportsOutGoing gestaltPPCSupportsRealTime gestaltPPCToolboxAttr gestaltPPCToolboxPresent gestaltProcessorType gestaltPrtblADBKbd gestaltPrtblISOKbd gestaltQuickdrawVersion gestaltRealTempMemory gestaltResourceMgrAttr gestaltRevisedTimeMgr gestaltROMSize gestaltROMVersion gestaltScriptCount gestaltScriptMgrVersion gestaltScrollingThrottle gestaltSerialAttr gestaltSoundAttr gestaltSoundIOMgrPresent gestaltSquareMenuBar gestaltStandardFile58 gestaltStandardFileAttr gestaltStandardTimeMgr gestaltStdADBKbd gestaltStdISOADBKbd gestaltStdNBPAttr gestaltStdNBPPresent gestaltStereoCapability gestaltStereoMixing gestaltSysDebuggerSupport gestaltSystemVersion gestaltSysZoneGrowable gestaltTE1 gestaltTE2 gestaltTE3 gestaltTE4 gestaltTE5 gestaltTempMemSupport gestaltTempMemTracked gestaltTermMgrAttr gestaltTermMgrPresent gestaltTextEditVersion gestaltTimeMgrVersion gestaltToolboxTable gestaltUndefSelectorErr gestaltUnknownErr gestaltVersion gestaltVMAttr gestaltVMPresent æKY gestaltUnknownErr æT constant æFc GestaltEqu.p æD gestaltUnknownErr = -5550; { value returned if Gestalt doesn't know the answer } æKY gestaltUndefSelectorErr æT constant æFc GestaltEqu.p æD gestaltUndefSelectorErr = -5551; { undefined selector was passed to Gestalt } æKY gestaltDupSelectorErr æT constant æFc GestaltEqu.p æD gestaltDupSelectorErr = -5552; { tried to add an entry that already existed } æKY gestaltLocationErr æT constant æFc GestaltEqu.p æD gestaltLocationErr = -5553; { gestalt function ptr wasn't in sysheap } æKY gestaltVersion æT constant æFc GestaltEqu.p æD gestaltVersion = 'vers'; { gestalt version } æKY gestaltAddressingModeAttr æT constant æFc GestaltEqu.p æD gestaltAddressingModeAttr = 'addr'; { addressing mode attributes } æKY gestalt32BitAddressing æT constant æFc GestaltEqu.p æD gestalt32BitAddressing = 0; { using 32-bit addressing mode } æKY gestalt32BitSysZone æT constant æFc GestaltEqu.p æD gestalt32BitSysZone = 1; { 32-bit compatible system zone } æKY gestalt32BitCapable æT constant æFc GestaltEqu.p æD gestalt32BitCapable = 2; { Machine is 32-bit capable } æKY gestaltAliasMgrAttr æT constant æFc GestaltEqu.p æD gestaltAliasMgrAttr = 'alis'; { Alias Mgr Attributes } æKY gestaltAliasMgrPresent æT constant æFc GestaltEqu.p æD gestaltAliasMgrPresent = 0; { True if the Alias Mgr is present } æKY gestaltAppleTalkVersion æT constant æFc GestaltEqu.p æD gestaltAppleTalkVersion = 'atlk'; { appletalk version } æKY gestaltAUXVersion æT constant æFc GestaltEqu.p æD gestaltAUXVersion = 'a/ux'; {a/ux version, if present } æKY gestaltConnMgrAttr æT constant æFc GestaltEqu.p æD gestaltConnMgrAttr = 'conn'; { connection mgr attributes } æKY gestaltConnMgrPresent æT constant æFc GestaltEqu.p æD gestaltConnMgrPresent = 0; æKY gestaltConnMgrCMSearchFix æT constant æFc GestaltEqu.p æD gestaltConnMgrCMSearchFix = 1; { Fix to CMAddSearch? } æKY gestaltCRMAttr æT constant æFc GestaltEqu.p æD gestaltCRMAttr = 'crm '; { comm resource mgr attributes } æKY gestaltCRMPresent æT constant æFc GestaltEqu.p æD gestaltCRMPresent = 0; æKY gestaltCTBVersion æT constant æFc GestaltEqu.p æD gestaltCTBVersion = 'ctbv'; { CommToolbox version } æKY gestaltDBAccessMgrAttr æT constant æFc GestaltEqu.p æD gestaltDBAccessMgrAttr = 'dbac'; { Database Access Mgr attributes } æKY gestaltDBAccessMgrPresent æT constant æFc GestaltEqu.p æD gestaltDBAccessMgrPresent = 0; { True if Database Access Mgr present } æKY gestaltDITLExtAttr æT constant æFc GestaltEqu.p æD gestaltDITLExtAttr = 'ditl'; { AppenDITL, etc. calls from CTB } æKY gestaltDITLExtPresent æT constant æFc GestaltEqu.p æD gestaltDITLExtPresent = 0; { True if calls are present } æKY gestaltEasyAccessAttr æT constant æFc GestaltEqu.p æD gestaltEasyAccessAttr = 'easy'; { Easy Access attributes } æKY gestaltEasyAccessOff æT constant æFc GestaltEqu.p æD gestaltEasyAccessOff = 0; { if Easy Access present, but off (no icon) } æKY gestaltEasyAccessOn æT constant æFc GestaltEqu.p æD gestaltEasyAccessOn = 1; { if Easy Access "On" } æKY gestaltEasyAccessSticky æT constant æFc GestaltEqu.p æD gestaltEasyAccessSticky = 2; { if Easy Access "Sticky" } æKY gestaltEasyAccessLocked æT constant æFc GestaltEqu.p æD gestaltEasyAccessLocked = 3; { if Easy Access "Locked" } æKY gestaltEditionMgrAttr æT constant æFc GestaltEqu.p æD gestaltEditionMgrAttr = 'edtn'; { Edition Mgr attributes } æKY gestaltEditionMgrPresent æT constant æFc GestaltEqu.p æD gestaltEditionMgrPresent = 0; { True if Edition Mgr present } æKY gestaltAppleEventsAttr æT constant æFc GestaltEqu.p æD gestaltAppleEventsAttr = 'evnt'; { Apple Events attributes } æKY gestaltAppleEventsPresent æT constant æFc GestaltEqu.p æD gestaltAppleEventsPresent = 0; { True if Apple Events present } æKY gestaltFindFolderAttr æT constant æFc GestaltEqu.p æD gestaltFindFolderAttr = 'fold'; { Folder Mgr attributes } æKY gestaltFindFolderPresent æT constant æFc GestaltEqu.p æD gestaltFindFolderPresent = 0; { True if Folder Mgr present } æKY gestaltFontMgrAttr æT constant æFc GestaltEqu.p æD gestaltFontMgrAttr = 'font'; { Font Mgr attributes } æKY gestaltOutlineFonts æT constant æFc GestaltEqu.p æD gestaltOutlineFonts = 0; { True if Outline Fonts supported } æKY gestaltFPUType æT constant æFc GestaltEqu.p æD gestaltFPUType = 'fpu '; { fpu type } æKY gestaltNoFPU æT constant æFc GestaltEqu.p æD gestaltNoFPU = 0; { no FPU } æKY gestalt68881 æT constant æFc GestaltEqu.p æD gestalt68881 = 1; { 68881 FPU } æKY gestalt68882 æT constant æFc GestaltEqu.p æD gestalt68882 = 2; { 68882 FPU } æKY gestalt68040FPU æT constant æFc GestaltEqu.p æD gestalt68040FPU = 3; { 68040 built-in FPU } æKY gestaltFSAttr æT constant æFc GestaltEqu.p æD gestaltFSAttr = 'fs '; { file system attributes } æKY gestaltFullExtFSDispatching æT constant æFc GestaltEqu.p æD gestaltFullExtFSDispatching = 0; { has really cool new HFSDispatch dispatcher } æKY gestaltHasFSSpecCalls æT constant æFc GestaltEqu.p æD gestaltHasFSSpecCalls = 1; { has FSSpec calls } æKY gestaltHasFileSystemManager æT constant æFc GestaltEqu.p æD gestaltHasFileSystemManager = 2; { has a file system manager } æKY gestaltFXfrMgrAttr æT constant æFc GestaltEqu.p æD gestaltFXfrMgrAttr = 'fxfr'; { file transfer manager attributes } æKY gestaltFXfrMgrPresent æT constant æFc GestaltEqu.p æD gestaltFXfrMgrPresent = 0; æKY gestaltHardwareAttr æT constant æFc GestaltEqu.p æD gestaltHardwareAttr = 'hdwr'; { hardware attributes } æKY gestaltHasVIA1 æT constant æFc GestaltEqu.p æD gestaltHasVIA1 = 0; { VIA1 exists } æKY gestaltHasVIA2 æT constant æFc GestaltEqu.p æD gestaltHasVIA2 = 1; { VIA2 exists } æKY gestaltHasASC æT constant æFc GestaltEqu.p æD gestaltHasASC = 3; { Apple Sound Chip exists } æKY gestaltHasSCC æT constant æFc GestaltEqu.p æD gestaltHasSCC = 4; { SCC exists } æKY gestaltHasSCSI æT constant æFc GestaltEqu.p æD gestaltHasSCSI = 7; { SCSI exists } æKY gestaltHasSoftPowerOff æT constant æFc GestaltEqu.p æD gestaltHasSoftPowerOff = 19; { Capable of software power off } æKY gestaltHelpMgrAttr æT constant æFc GestaltEqu.p æD gestaltHelpMgrAttr = 'help'; { Help Mgr Attributes } æKY gestaltHelpMgrPresent æT constant æFc GestaltEqu.p æD gestaltHelpMgrPresent = 0; { true if help mgr is present } æKY gestaltKeyboardType æT constant æFc GestaltEqu.p æD gestaltKeyboardType = 'kbd '; { keyboard type } æKY gestaltMacKbd æT constant æFc GestaltEqu.p æD gestaltMacKbd = 1; æKY gestaltMacAndPad æT constant æFc GestaltEqu.p æD gestaltMacAndPad = 2; æKY gestaltMacPlusKbd æT constant æFc GestaltEqu.p æD gestaltMacPlusKbd = 3; æKY gestaltExtADBKbd æT constant æFc GestaltEqu.p æD gestaltExtADBKbd = 4; æKY gestaltStdADBKbd æT constant æFc GestaltEqu.p æD gestaltStdADBKbd = 5; æKY gestaltPrtblADBKbd æT constant æFc GestaltEqu.p æD gestaltPrtblADBKbd = 6; æKY gestaltPrtblISOKbd æT constant æFc GestaltEqu.p æD gestaltPrtblISOKbd = 7; æKY gestaltStdISOADBKbd æT constant æFc GestaltEqu.p æD gestaltStdISOADBKbd = 8; æKY gestaltExtISOADBKbd æT constant æFc GestaltEqu.p æD gestaltExtISOADBKbd = 9; æKY gestaltADBKbdII æT constant æFc GestaltEqu.p æD gestaltADBKbdII = 10; æKY gestaltADBISOKbdII æT constant æFc GestaltEqu.p æD gestaltADBISOKbdII = 11; æKY gestaltLowMemorySize æT constant æFc GestaltEqu.p æD gestaltLowMemorySize = 'lmem'; { size of low memory area } æKY gestaltLogicalRAMSize æT constant æFc GestaltEqu.p æD gestaltLogicalRAMSize = 'lram'; { logical ram size } æKY gestaltMiscAttr æT constant æFc GestaltEqu.p æD gestaltMiscAttr = 'misc'; { miscellaneous attributes } æKY gestaltScrollingThrottle æT constant æFc GestaltEqu.p æD gestaltScrollingThrottle = 0; { true if scrolling throttle on } æKY gestaltSquareMenuBar æT constant æFc GestaltEqu.p æD gestaltSquareMenuBar = 2; { true if menu bar is square } æKY gestaltMMUType æT constant æFc GestaltEqu.p æD gestaltMMUType = 'mmu '; { mmu type } æKY gestaltNoMMU æT constant æFc GestaltEqu.p æD gestaltNoMMU = 0; { no MMU } æKY gestaltAMU æT constant æFc GestaltEqu.p æD gestaltAMU = 1; { address management unit } æKY gestalt68851 æT constant æFc GestaltEqu.p æD gestalt68851 = 2; { 68851 PMMU } æKY gestalt68030MMU æT constant æFc GestaltEqu.p æD gestalt68030MMU = 3; { 68030 built-in MMU } æKY gestalt68040MMU æT constant æFc GestaltEqu.p æD gestalt68040MMU = 4; { 68040 built-in MMU } æKY gestaltStdNBPAttr æT constant æFc GestaltEqu.p æD gestaltStdNBPAttr = 'nlup'; { standard nbp attributes } æKY gestaltStdNBPPresent æT constant æFc GestaltEqu.p æD gestaltStdNBPPresent = 0; æKY gestaltNotificationMgrAttr æT constant æFc GestaltEqu.p æD gestaltNotificationMgrAttr = 'nmgr'; { notification manager attributes } æKY gestaltNotificationPresent æT constant æFc GestaltEqu.p æD gestaltNotificationPresent = 0; { notification manager exists } æKY gestaltNuBusConnectors æT constant æFc GestaltEqu.p æD gestaltNuBusConnectors = 'sltc'; { bitmap of NuBus connectors} æKY gestaltOSAttr æT constant æFc GestaltEqu.p æD gestaltOSAttr = 'os '; { o/s attributes } æKY gestaltSysZoneGrowable æT constant æFc GestaltEqu.p æD gestaltSysZoneGrowable = 0; { system heap is growable } æKY gestaltLaunchCanReturn æT constant æFc GestaltEqu.p æD gestaltLaunchCanReturn = 1; { can return from launch } æKY gestaltLaunchFullFileSpec æT constant æFc GestaltEqu.p æD gestaltLaunchFullFileSpec = 2; { can launch from full file spec } æKY gestaltLaunchControl æT constant æFc GestaltEqu.p æD gestaltLaunchControl = 3; { launch control support available } æKY gestaltTempMemSupport æT constant æFc GestaltEqu.p æD gestaltTempMemSupport = 4; { temp memory support } æKY gestaltRealTempMemory æT constant æFc GestaltEqu.p æD gestaltRealTempMemory = 5; { temp memory handles are real } æKY gestaltTempMemTracked æT constant æFc GestaltEqu.p æD gestaltTempMemTracked = 6; { temporary memory handles are tracked } æKY gestaltIPCSupport æT constant æFc GestaltEqu.p æD gestaltIPCSupport = 7; { IPC support is present } æKY gestaltSysDebuggerSupport æT constant æFc GestaltEqu.p æD gestaltSysDebuggerSupport = 8; { system debugger support is present } æKY gestaltOSTable æT constant æFc GestaltEqu.p æD gestaltOSTable = 'ostt'; { OS trap table base } æKY gestaltToolboxTable æT constant æFc GestaltEqu.p æD gestaltToolboxTable = 'tbtt'; { OS trap table base } æKY gestaltExtToolboxTable æT constant æFc GestaltEqu.p æD gestaltExtToolboxTable = 'xttt'; { Extended Toolbox trap table base } æKY gestaltLogicalPageSize æT constant æFc GestaltEqu.p æD gestaltLogicalPageSize = 'pgsz'; { logical page size } æKY gestaltPowerMgrAttr æT constant æFc GestaltEqu.p æD gestaltPowerMgrAttr = 'powr'; { power manager attributes } æKY gestaltPMgrExists æT constant æFc GestaltEqu.p æD gestaltPMgrExists = 0; æKY gestaltPMgrCPUIdle æT constant æFc GestaltEqu.p æD gestaltPMgrCPUIdle = 1; æKY gestaltPMgrSCC æT constant æFc GestaltEqu.p æD gestaltPMgrSCC = 2; æKY gestaltPMgrSound æT constant æFc GestaltEqu.p æD gestaltPMgrSound = 3; æKY gestaltPPCToolboxAttr æT constant æFc GestaltEqu.p æD gestaltPPCToolboxAttr = 'ppc '; { PPC toolbox attributes } æKY gestaltPPCToolboxPresent æT constant æFc GestaltEqu.p æD gestaltPPCToolboxPresent = $0000; { PPC Toolbox is present Requires PPCInit to be called } æKY gestaltPPCSupportsRealTime æT constant æFc GestaltEqu.p æD gestaltPPCSupportsRealTime = $1000; { PPC Supports real-time delivery } æKY gestaltPPCSupportsIncoming æT constant æFc GestaltEqu.p æD gestaltPPCSupportsIncoming = $0001; { PPC will deny incoming network requests } æKY gestaltPPCSupportsOutGoing æT constant æFc GestaltEqu.p æD gestaltPPCSupportsOutGoing = $0002; { PPC will deny outgoing network requests } æKY gestaltProcessorType æT constant æFc GestaltEqu.p æD gestaltProcessorType = 'proc'; { processor type } æKY gestalt68000 æT constant æFc GestaltEqu.p æD gestalt68000 = 1; æKY gestalt68010 æT constant æFc GestaltEqu.p æD gestalt68010 = 2; æKY gestalt68020 æT constant æFc GestaltEqu.p æD gestalt68020 = 3; æKY gestalt68030 æT constant æFc GestaltEqu.p æD gestalt68030 = 4; æKY gestalt68040 æT constant æFc GestaltEqu.p æD gestalt68040 = 5; æKY gestaltParityAttr æT constant æFc GestaltEqu.p æD gestaltParityAttr = 'prty'; { parity attributes } æKY gestaltHasParityCapability æT constant æFc GestaltEqu.p æD gestaltHasParityCapability = 0; { has ability to check parity } æKY gestaltParityEnabled æT constant æFc GestaltEqu.p æD gestaltParityEnabled = 1; { parity checking enabled } æKY gestaltQuickdrawVersion æT constant æFc GestaltEqu.p æD gestaltQuickdrawVersion = 'qd '; { quickdraw version } æKY gestaltOriginalQD æT constant æFc GestaltEqu.p æD gestaltOriginalQD = $000; { original 1-bit QD } æKY gestaltOriginalQD1 æT constant æFc GestaltEqu.p æD gestaltOriginalQD1 = $001; { Classic QD for System 7.0 } æKY gestalt8BitQD æT constant æFc GestaltEqu.p æD gestalt8BitQD = $100; { 8-bit color QD } æKY gestalt32BitQD æT constant æFc GestaltEqu.p æD gestalt32BitQD = $200; { 32-bit color QD } æKY gestalt32BitQD11 æT constant æFc GestaltEqu.p æD gestalt32BitQD11 = $210; { 32-bit color QDv1.1 } æKY gestalt32BitQD12 æT constant æFc GestaltEqu.p æD gestalt32BitQD12 = $220; { 32-bit color QDv1.2 } æKY gestalt32BitQD13 æT constant æFc GestaltEqu.p æD gestalt32BitQD13 = $230; { 32-bit color QDv1.3 } æKY gestaltPhysicalRAMSize æT constant æFc GestaltEqu.p æD gestaltPhysicalRAMSize = 'ram '; { physical RAM size } æKY gestaltPopupAttr æT constant æFc GestaltEqu.p æD gestaltPopupAttr = 'pop!'; { popup cdef attributes } æKY gestaltPopupPresent æT constant æFc GestaltEqu.p æD gestaltPopupPresent = 0; æKY gestaltResourceMgrAttr æT constant æFc GestaltEqu.p æD gestaltResourceMgrAttr = 'rsrc'; { Resource Mgr attributes } æKY gestaltPartialRsrcs æT constant æFc GestaltEqu.p æD gestaltPartialRsrcs = 0; { True if partial resources exist } æKY gestaltScriptMgrVersion æT constant æFc GestaltEqu.p æD gestaltScriptMgrVersion = 'scri'; { Script Manager version number <08/05/89 pke> } æKY gestaltScriptCount æT constant æFc GestaltEqu.p æD gestaltScriptCount = 'scr#'; { number of active script systems <08/05/89 pke> } æKY gestaltSerialAttr æT constant æFc GestaltEqu.p æD gestaltSerialAttr = 'ser '; { Serial attributes } æKY gestaltHasGPIaToDCDa æT constant æFc GestaltEqu.p æD gestaltHasGPIaToDCDa = 0; { GPIa connected to DCDa} æKY gestaltHasGPIaToRTxCa æT constant æFc GestaltEqu.p æD gestaltHasGPIaToRTxCa = 1; { GPIa connected to RTxCa clock input} æKY gestaltHasGPIbToDCDb æT constant æFc GestaltEqu.p æD gestaltHasGPIbToDCDb = 2; { GPIb connected to DCDb } æKY gestaltSoundAttr æT constant æFc GestaltEqu.p æD gestaltSoundAttr = 'snd '; { sound attributes } æKY gestaltStereoCapability æT constant æFc GestaltEqu.p æD gestaltStereoCapability = 0; { sound hardware has stereo capability } æKY gestaltStereoMixing æT constant æFc GestaltEqu.p æD gestaltStereoMixing = 1; { stereo mixing on external speaker } æKY gestaltSoundIOMgrPresent æT constant æFc GestaltEqu.p æD gestaltSoundIOMgrPresent = 3; { The Sound I/O Manager is present } æKY gestaltBuiltInSoundInput æT constant æFc GestaltEqu.p æD gestaltBuiltInSoundInput = 4; { built-in Sound Input hardware is present } æKY gestaltHasSoundInputDevice æT constant æFc GestaltEqu.p æD gestaltHasSoundInputDevice = 5; { Sound Input device available } æKY gestaltStandardFileAttr æT constant æFc GestaltEqu.p æD gestaltStandardFileAttr = 'stdf'; { Standard File attributes } æKY gestaltStandardFile58 æT constant æFc GestaltEqu.p æD gestaltStandardFile58 = 0; { True if selectors 5-8 (StandardPutFile-CustomGetFile) are supported } æKY gestaltTextEditVersion æT constant æFc GestaltEqu.p æD gestaltTextEditVersion = 'te '; { TextEdit version number <08/05/89 pke> } æKY gestaltTE1 æT constant æFc GestaltEqu.p æD gestaltTE1 = 1; { TextEdit in MacIIci ROM <8Aug89smb> } æKY gestaltTE2 æT constant æFc GestaltEqu.p æD gestaltTE2 = 2; { TextEdit with 6.0.4 Script Systems on MacIIci (Script bug fixes for MacIIci) <8Aug89smb> } æKY gestaltTE3 æT constant æFc GestaltEqu.p æD gestaltTE3 = 3; { TextEdit with 6.0.4 Script Systems all but MacIIci <8Aug89smb> } æKY gestaltTE4 æT constant æFc GestaltEqu.p æD gestaltTE4 = 4; { TextEdit in System 7.0 } æKY gestaltTE5 æT constant æFc GestaltEqu.p æD gestaltTE5 = 5; { TextWidthHook available in TextEdit } æKY gestaltTermMgrAttr æT constant æFc GestaltEqu.p æD gestaltTermMgrAttr = 'term'; { terminal mgr attributes } æKY gestaltTermMgrPresent æT constant æFc GestaltEqu.p æD gestaltTermMgrPresent = 0; æKY gestaltTimeMgrVersion æT constant æFc GestaltEqu.p æD gestaltTimeMgrVersion = 'tmgr'; { time mgr version } æKY gestaltStandardTimeMgr æT constant æFc GestaltEqu.p æD gestaltStandardTimeMgr = 1; { standard time mgr is present } æKY gestaltRevisedTimeMgr æT constant æFc GestaltEqu.p æD gestaltRevisedTimeMgr = 2; { revised time mgr is present } æKY gestaltExtendedTimeMgr æT constant æFc GestaltEqu.p æD gestaltExtendedTimeMgr = 3; { extended time mgr is present } æKY gestaltVMAttr æT constant æFc GestaltEqu.p æD gestaltVMAttr = 'vm '; { virtual memory attributes } æKY gestaltVMPresent æT constant æFc GestaltEqu.p æD gestaltVMPresent = 0; { true if virtual memory is present } æKY gestaltMachineType æT constant æFc GestaltEqu.p æD gestaltMachineType = 'mach'; { machine type } æKY gestaltClassic æT constant æFc GestaltEqu.p æD gestaltClassic = 1; æKY gestaltMacXL æT constant æFc GestaltEqu.p æD gestaltMacXL = 2; æKY gestaltMac512KE æT constant æFc GestaltEqu.p æD gestaltMac512KE = 3; æKY gestaltMacPlus æT constant æFc GestaltEqu.p æD gestaltMacPlus = 4; æKY gestaltMacSE æT constant æFc GestaltEqu.p æD gestaltMacSE = 5; æKY gestaltMacII æT constant æFc GestaltEqu.p æD gestaltMacII = 6; æKY gestaltMacIIx æT constant æFc GestaltEqu.p æD gestaltMacIIx = 7; æKY gestaltMacIIcx æT constant æFc GestaltEqu.p æD gestaltMacIIcx = 8; æKY gestaltMacSE030 æT constant æFc GestaltEqu.p æD gestaltMacSE030 = 9; æKY gestaltPortable æT constant æFc GestaltEqu.p æD gestaltPortable = 10; æKY gestaltMacIIci æT constant æFc GestaltEqu.p æD gestaltMacIIci = 11; æKY gestaltMacIIfx æT constant æFc GestaltEqu.p æD gestaltMacIIfx = 13; æKY gestaltMacClassic æT constant æFc GestaltEqu.p æD gestaltMacClassic = 17; æKY gestaltMacIIsi æT constant æFc GestaltEqu.p æD gestaltMacIIsi = 18; æKY gestaltMacLC æT constant æFc GestaltEqu.p æD gestaltMacLC = 19; æKY gestaltMachineIcon æT constant æFc GestaltEqu.p æD gestaltMachineIcon = 'micn'; { machine icon } æKY gestaltROMSize æT constant æFc GestaltEqu.p æD gestaltROMSize = 'rom '; { rom size } æKY gestaltROMVersion æT constant æFc GestaltEqu.p æD gestaltROMVersion = 'romv'; { rom version } æKY gestaltSystemVersion æT constant æFc GestaltEqu.p æD gestaltSystemVersion = 'sysv'; { system version} æKY Gestalt æT Function æFc GestaltEqu.p æD FUNCTION Gestalt(selector: OSType;VAR response: LONGINT): OSErr; æKY NewGestalt æT Function æFc GestaltEqu.p æD FUNCTION NewGestalt(selector: OSType;gestaltFunction: ProcPtr): OSErr; æKY ReplaceGestalt æT Function æFc GestaltEqu.p æD FUNCTION ReplaceGestalt(selector: OSType;gestaltFunction: ProcPtr;VAR oldGestaltFunction: ProcPtr): OSErr; æKY Graf3D.p æKL Clip3D GetPort3D Identity InitGrf3d Line2D Line3D LineTo2D LineTo3D LookAt Move2D Move3D MoveTo2D MoveTo3D Open3DPort Pitch Roll Scale SetPort3D SetPt2D SetPt3D Skew Transform Translate ViewAngle ViewPort Yaw Point2D Point3D Port3D Port3DHandle Port3DPtr radConst XfMatrix æKY radConst æT constant æFc Graf3D.p æD radConst = 3754936; æKY Point3D æT struct æFc Graf3D.p æD Point3D = RECORD x: Fixed; y: Fixed; z: Fixed; END; æKY Point2D æT struct æFc Graf3D.p æD Point2D = RECORD x: Fixed; y: Fixed; END; æKY XfMatrix æT union æFc Graf3D.p æD XfMatrix = ARRAY [0..3, 0..3] OF Fixed; æKY Port3D æT struct æFc Graf3D.p æD Port3DPtr = ^Port3D; Port3DHandle = ^Port3DPtr; Port3D = RECORD grPort: GrafPtr; viewRect: Rect; xLeft: Fixed; yTop: Fixed; xRight: Fixed; yBottom: Fixed; pen: Point3D; penPrime: Point3D; eye: Point3D; hSize: Fixed; vSize: Fixed; hCenter: Fixed; vCenter: Fixed; xCotan: Fixed; yCotan: Fixed; ident: BOOLEAN; xForm: XfMatrix; END; æKY InitGrf3d æT Function æFc Graf3D.p æD PROCEDURE InitGrf3d(port: Port3DHandle); æKY Open3DPort æT Function æFc Graf3D.p æD PROCEDURE Open3DPort(port: Port3DPtr); æKY SetPort3D æT Function æFc Graf3D.p æD PROCEDURE SetPort3D(port: Port3DPtr); æKY GetPort3D æT Function æFc Graf3D.p æD PROCEDURE GetPort3D(VAR port: Port3DPtr); æKY MoveTo2D æT Function æFc Graf3D.p æD PROCEDURE MoveTo2D(x: Fixed;y: Fixed); æKY MoveTo3D æT Function æFc Graf3D.p æD PROCEDURE MoveTo3D(x: Fixed;y: Fixed;z: Fixed); æKY LineTo2D æT Function æFc Graf3D.p æD PROCEDURE LineTo2D(x: Fixed;y: Fixed); æKY Move2D æT Function æFc Graf3D.p æD PROCEDURE Move2D(dx: Fixed;dy: Fixed); æKY Move3D æT Function æFc Graf3D.p æD PROCEDURE Move3D(dx: Fixed;dy: Fixed;dz: Fixed); æKY Line2D æT Function æFc Graf3D.p æD PROCEDURE Line2D(dx: Fixed;dy: Fixed); æKY Line3D æT Function æFc Graf3D.p æD PROCEDURE Line3D(dx: Fixed;dy: Fixed;dz: Fixed); æKY ViewPort æT Function æFc Graf3D.p æD PROCEDURE ViewPort(r: Rect); æKY LookAt æT Function æFc Graf3D.p æD PROCEDURE LookAt(left: Fixed;top: Fixed;right: Fixed;bottom: Fixed); æKY ViewAngle æT Function æFc Graf3D.p æD PROCEDURE ViewAngle(angle: Fixed); æKY Identity æT Function æFc Graf3D.p æD PROCEDURE Identity; æKY Scale æT Function æFc Graf3D.p æD PROCEDURE Scale(xFactor: Fixed;yFactor: Fixed;zFactor: Fixed); æKY Translate æT Function æFc Graf3D.p æD PROCEDURE Translate(dx: Fixed;dy: Fixed;dz: Fixed); æKY Pitch æT Function æFc Graf3D.p æD PROCEDURE Pitch(xAngle: Fixed); æKY Yaw æT Function æFc Graf3D.p æD PROCEDURE Yaw(yAngle: Fixed); æKY Roll æT Function æFc Graf3D.p æD PROCEDURE Roll(zAngle: Fixed); æKY Skew æT Function æFc Graf3D.p æD PROCEDURE Skew(zAngle: Fixed); æKY Transform æT Function æFc Graf3D.p æD PROCEDURE Transform(src: Point3D;VAR dst: Point3D); æKY Clip3D æT Function æFc Graf3D.p æD FUNCTION Clip3D(src1: Point3D;src2: Point3D;VAR dst1: Point;VAR dst2: Point): INTEGER; æKY SetPt3D æT Function æFc Graf3D.p æD PROCEDURE SetPt3D(VAR pt3D: Point3D;x: Fixed;y: Fixed;z: Fixed); æKY SetPt2D æT Function æFc Graf3D.p æD PROCEDURE SetPt2D(VAR pt2D: Point2D;x: Fixed;y: Fixed); æKY LineTo3D æT Function æFc Graf3D.p æD PROCEDURE LineTo3D(x: Fixed;y: Fixed;z: Fixed); æKY Lists.p æKL LActivate LAddColumn LAddRow LAddToCell LAutoScroll LCellSize LClick LClrCell LDelColumn LDelRow LDispose LDoDraw LDraw LFind LGetCell LGetSelect LLastClick LNew LNextCell LRect LScroll LSearch LSetCell LSetSelect LSize LUpdate Cell DataArray lCloseMsg lDoHAutoscroll lDoVAutoscroll lDrawMsg lExtendDrag lHiliteMsg lInitMsg ListHandle ListPtr ListRec lNoDisjoint lNoExtend lNoNilHilite lNoRect lOnlyOne lUseSense æKY lDoVAutoscroll æT constant æFc Lists.p æD lDoVAutoscroll = 2; æKY lDoHAutoscroll æT constant æFc Lists.p æD lDoHAutoscroll = 1; æKY lOnlyOne æT constant æFc Lists.p æD lOnlyOne = -128; æKY lExtendDrag æT constant æFc Lists.p æD lExtendDrag = 64; æKY lNoDisjoint æT constant æFc Lists.p æD lNoDisjoint = 32; æKY lNoExtend æT constant æFc Lists.p æD lNoExtend = 16; æKY lNoRect æT constant æFc Lists.p æD lNoRect = 8; æKY lUseSense æT constant æFc Lists.p æD lUseSense = 4; æKY lNoNilHilite æT constant æFc Lists.p æD lNoNilHilite = 2; æKY lInitMsg æT constant æFc Lists.p æD lInitMsg = 0; æKY lDrawMsg æT constant æFc Lists.p æD lDrawMsg = 1; æKY lHiliteMsg æT constant æFc Lists.p æD lHiliteMsg = 2; æKY lCloseMsg æT constant æFc Lists.p æD lCloseMsg = 3; æKY Cell æT typedef æFc Lists.p æD Cell = Point; æKY DataArray æT typedef æFc Lists.p æD DataPtr = ^DataArray; DataHandle = ^DataPtr; DataArray = PACKED ARRAY [0..32000] OF CHAR; æKY ListRec æT struct æFc Lists.p æD ListPtr = ^ListRec; ListHandle = ^ListPtr; ListRec = RECORD rView: Rect; port: GrafPtr; indent: Point; cellSize: Point; visible: Rect; vScroll: ControlHandle; hScroll: ControlHandle; selFlags: SignedByte; lActive: BOOLEAN; lReserved: SignedByte; listFlags: SignedByte; clikTime: LONGINT; clikLoc: Point; mouseLoc: Point; lClikLoop: ProcPtr; lastClick: Cell; refCon: LONGINT; listDefProc: Handle; userHandle: Handle; dataBounds: Rect; cells: DataHandle; maxIndex: INTEGER; cellArray: ARRAY [1..1] OF INTEGER; END; æKY LNew æT Function æFc Lists.p æD FUNCTION LNew(rView: Rect;dataBounds: Rect;cSize: Point;theProc: INTEGER; theWindow: WindowPtr;drawIt: BOOLEAN;hasGrow: BOOLEAN;scrollHoriz: BOOLEAN; scrollVert: BOOLEAN): ListHandle; INLINE $3F3C,$0044,$A9E7; æKY LDispose æT Function æFc Lists.p æD PROCEDURE LDispose(lHandle: ListHandle); INLINE $3F3C,$0028,$A9E7; æKY LAddColumn æT Function æFc Lists.p æD FUNCTION LAddColumn(count: INTEGER;colNum: INTEGER;lHandle: ListHandle): INTEGER; INLINE $3F3C,$0004,$A9E7; æKY LAddRow æT Function æFc Lists.p æD FUNCTION LAddRow(count: INTEGER;rowNum: INTEGER;lHandle: ListHandle): INTEGER; INLINE $3F3C,$0008,$A9E7; æKY LDelColumn æT Function æFc Lists.p æD PROCEDURE LDelColumn(count: INTEGER;colNum: INTEGER;lHandle: ListHandle); INLINE $3F3C,$0020,$A9E7; æKY LDelRow æT Function æFc Lists.p æD PROCEDURE LDelRow(count: INTEGER;rowNum: INTEGER;lHandle: ListHandle); INLINE $3F3C,$0024,$A9E7; æKY LGetSelect æT Function æFc Lists.p æD FUNCTION LGetSelect(next: BOOLEAN;VAR theCell: Cell;lHandle: ListHandle): BOOLEAN; INLINE $3F3C,$003C,$A9E7; æKY LLastClick æT Function æFc Lists.p æD FUNCTION LLastClick(lHandle: ListHandle): Cell; INLINE $3F3C,$0040,$A9E7; æKY LNextCell æT Function æFc Lists.p æD FUNCTION LNextCell(hNext: BOOLEAN;vNext: BOOLEAN;VAR theCell: Cell;lHandle: ListHandle): BOOLEAN; INLINE $3F3C,$0048,$A9E7; æKY LSearch æT Function æFc Lists.p æD FUNCTION LSearch(dataPtr: Ptr;dataLen: INTEGER;searchProc: ProcPtr;VAR theCell: Cell; lHandle: ListHandle): BOOLEAN; INLINE $3F3C,$0054,$A9E7; æKY LSize æT Function æFc Lists.p æD PROCEDURE LSize(listWidth: INTEGER;listHeight: INTEGER;lHandle: ListHandle); INLINE $3F3C,$0060,$A9E7; æKY LDoDraw æT Function æFc Lists.p æD PROCEDURE LDoDraw(drawIt: BOOLEAN;lHandle: ListHandle); INLINE $3F3C,$002C,$A9E7; æKY LScroll æT Function æFc Lists.p æD PROCEDURE LScroll(dCols: INTEGER;dRows: INTEGER;lHandle: ListHandle); INLINE $3F3C,$0050,$A9E7; æKY LAutoScroll æT Function æFc Lists.p æD PROCEDURE LAutoScroll(lHandle: ListHandle); INLINE $3F3C,$0010,$A9E7; æKY LUpdate æT Function æFc Lists.p æD PROCEDURE LUpdate(theRgn: RgnHandle;lHandle: ListHandle); INLINE $3F3C,$0064,$A9E7; æKY LActivate æT Function æFc Lists.p æD PROCEDURE LActivate(act: BOOLEAN;lHandle: ListHandle); INLINE $4267,$A9E7; æKY LCellSize æT Function æFc Lists.p æD PROCEDURE LCellSize(cSize: Point;lHandle: ListHandle); INLINE $3F3C,$0014,$A9E7; æKY LClick æT Function æFc Lists.p æD FUNCTION LClick(pt: Point;modifiers: INTEGER;lHandle: ListHandle): BOOLEAN; INLINE $3F3C,$0018,$A9E7; æKY LAddToCell æT Function æFc Lists.p æD PROCEDURE LAddToCell(dataPtr: Ptr;dataLen: INTEGER;theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$000C,$A9E7; æKY LClrCell æT Function æFc Lists.p æD PROCEDURE LClrCell(theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$001C,$A9E7; æKY LGetCell æT Function æFc Lists.p æD PROCEDURE LGetCell(dataPtr: Ptr;VAR dataLen: INTEGER;theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$0038,$A9E7; æKY LFind æT Function æFc Lists.p æD PROCEDURE LFind(VAR offset: INTEGER;VAR len: INTEGER;theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$0034,$A9E7; æKY LRect æT Function æFc Lists.p æD PROCEDURE LRect(VAR cellRect: Rect;theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$004C,$A9E7; æKY LSetCell æT Function æFc Lists.p æD PROCEDURE LSetCell(dataPtr: Ptr;dataLen: INTEGER;theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$0058,$A9E7; æKY LSetSelect æT Function æFc Lists.p æD PROCEDURE LSetSelect(setIt: BOOLEAN;theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$005C,$A9E7; æKY LDraw æT Function æFc Lists.p æD PROCEDURE LDraw(theCell: Cell;lHandle: ListHandle); INLINE $3F3C,$0030,$A9E7; æKY Memory.p æKL ApplicationZone ApplicZone BlockMove CompactMem CompactMemSys DebuggerEnter DebuggerExit DebuggerGetMax DebuggerLockMemory DebuggerPoll DebuggerUnlockMemory DeferUserFn DisposeHandle DisposePtr DisposHandle DisposPtr EmptyHandle EnterSupervisorMode FreeMem FreeMemSys GetApplLimit GetHandleSize GetPageState GetPhysical GetPtrSize GetZone GZSaveHnd HandleZone HClrRBit HGetState HLock HLockHi HNoPurge HoldMemory HPurge HSetRBit HSetState HUnlock InitApplZone InitZone LockMemory LockMemoryContiguous MaxApplZone MaxBlock MaxBlockSys MaxMem MaxMemSys MemError MFFreeMem MFMaxMem MFTempDisposHandle MFTempHLock MFTempHUnlock MFTempNewHandle MFTopMem MoreMasters MoveHHi NewEmptyHandle NewEmptyHandleSys NewHandle NewHandleClear NewHandleSys NewHandleSysClear NewPtr NewPtrClear NewPtrSys NewPtrSysClear PageFaultFatal PtrZone PurgeMem PurgeMemSys PurgeSpace ReallocateHandle ReallocHandle RecoverHandle ReserveMem ReserveMemSys ResrvMem SetApplBase SetApplLimit SetGrowZone SetHandleSize SetPtrSize SetZone StackSpace StripAddress SystemZone TempDisposeHandle TempFreeMem TempHLock TempHUnlock TempMaxMem TempNewHandle TempTopMem TopMem Translate24To32 UnholdMemory UnlockMemory defaultPhysicalEntryCount kNotPaged kPageInMemory kPageOnDisk LogicalToPhysicalTable maxSize MemoryBlock PageState Size StatusRegisterContents THz Zone æKY maxSize æT constant æFc Memory.p æD maxSize = $800000; {Max data block size is 8 megabytes} æKY defaultPhysicalEntryCount æT constant æFc Memory.p æD defaultPhysicalEntryCount = 8; æKY kPageInMemory æT constant æFc Memory.p æD kPageInMemory = 0; æKY kPageOnDisk æT constant æFc Memory.p æD kPageOnDisk = 1; æKY kNotPaged æT constant æFc Memory.p æD kNotPaged = 2; æKY Size æT typedef æFc Memory.p æD Size = LONGINT; { size of a block in bytes } æKY Zone æT struct æFc Memory.p æD THz = ^Zone; Zone = RECORD bkLim: Ptr; purgePtr: Ptr; hFstFree: Ptr; zcbFree: LONGINT; gzProc: ProcPtr; moreMast: INTEGER; flags: INTEGER; cntRel: INTEGER; maxRel: INTEGER; cntNRel: INTEGER; maxNRel: INTEGER; cntEmpty: INTEGER; cntHandles: INTEGER; minCBFree: LONGINT; purgeProc: ProcPtr; sparePtr: Ptr; allocPtr: Ptr; heapData: INTEGER; END; æKY MemoryBlock æT struct æFc Memory.p æD MemoryBlock = RECORD address: Ptr; count: LONGINT; END; æKY LogicalToPhysicalTable æT struct æFc Memory.p æD LogicalToPhysicalTable = RECORD logical: MemoryBlock; physical: ARRAY [0..defaultPhysicalEntryCount - 1] OF MemoryBlock; END; æKY PageState æT typedef æFc Memory.p æD PageState = INTEGER; æKY StatusRegisterContents æT typedef æFc Memory.p æD StatusRegisterContents = INTEGER; æKY GetApplLimit æT Function æFc Memory.p æD FUNCTION GetApplLimit: Ptr; INLINE $2EB8,$0130; æKY GetZone æT Function æFc Memory.p æD FUNCTION GetZone: THz; INLINE $A11A,$2E88; æKY SystemZone æT Function æFc Memory.p æD FUNCTION SystemZone: THz; INLINE $2EB8,$02A6; æKY ApplicZone æT Function æFc Memory.p æD FUNCTION ApplicZone: THz; INLINE $2EB8,$02AA; æKY ApplicationZone æT Function æFc Memory.p æD FUNCTION ApplicationZone: THz; INLINE $2EB8,$02AA; æKY NewHandle æT Function æFc Memory.p æD FUNCTION NewHandle(byteCount: Size): Handle; æKY NewHandleSys æT Function æFc Memory.p æD FUNCTION NewHandleSys(byteCount: Size): Handle; æKY NewHandleClear æT Function æFc Memory.p æD FUNCTION NewHandleClear(byteCount: Size): Handle; æKY NewHandleSysClear æT Function æFc Memory.p æD FUNCTION NewHandleSysClear(byteCount: Size): Handle; æKY HandleZone æT Function æFc Memory.p æD FUNCTION HandleZone(h: Handle): THz; æKY RecoverHandle æT Function æFc Memory.p æD FUNCTION RecoverHandle(p: Ptr): Handle; æKY NewPtr æT Function æFc Memory.p æD FUNCTION NewPtr(byteCount: Size): Ptr; æKY NewPtrSys æT Function æFc Memory.p æD FUNCTION NewPtrSys(byteCount: Size): Ptr; æKY NewPtrClear æT Function æFc Memory.p æD FUNCTION NewPtrClear(byteCount: Size): Ptr; æKY NewPtrSysClear æT Function æFc Memory.p æD FUNCTION NewPtrSysClear(byteCount: Size): Ptr; æKY PtrZone æT Function æFc Memory.p æD FUNCTION PtrZone(p: Ptr): THz; æKY GZSaveHnd æT Function æFc Memory.p æD FUNCTION GZSaveHnd: Handle; INLINE $2EB8,$0328; æKY TopMem æT Function æFc Memory.p æD FUNCTION TopMem: Ptr; INLINE $2EB8,$0108; æKY MaxBlock æT Function æFc Memory.p æD FUNCTION MaxBlock: LONGINT; æKY MaxBlockSys æT Function æFc Memory.p æD FUNCTION MaxBlockSys: LONGINT; æKY StackSpace æT Function æFc Memory.p æD FUNCTION StackSpace: LONGINT; æKY NewEmptyHandle æT Function æFc Memory.p æD FUNCTION NewEmptyHandle: Handle; æKY NewEmptyHandleSys æT Function æFc Memory.p æD FUNCTION NewEmptyHandleSys: Handle; æKY HLock æT Function æFc Memory.p æD PROCEDURE HLock(h: Handle); INLINE $205F,$A029; æKY HUnlock æT Function æFc Memory.p æD PROCEDURE HUnlock(h: Handle); INLINE $205F,$A02A; æKY HPurge æT Function æFc Memory.p æD PROCEDURE HPurge(h: Handle); INLINE $205F,$A049; æKY HNoPurge æT Function æFc Memory.p æD PROCEDURE HNoPurge(h: Handle); INLINE $205F,$A04A; æKY HLockHi æT Function æFc Memory.p æD PROCEDURE HLockHi(h: Handle); INLINE $205F,$A064,$A029; æKY StripAddress æT Function æFc Memory.p æD FUNCTION StripAddress(theAddress: UNIV Ptr): Ptr; {$IFC SystemSixOrLater } INLINE $201F,$A055,$2E80;; {$ENDC} æKY Translate24To32 æT Function æFc Memory.p æD FUNCTION Translate24To32(addr24: UNIV Ptr): Ptr; INLINE $201F,$A091,$2E80; æKY TempNewHandle æT Function æFc Memory.p æD FUNCTION TempNewHandle(logicalSize: Size;VAR resultCode: OSErr): Handle; INLINE $3F3C,$001D,$A88F; æKY TempMaxMem æT Function æFc Memory.p æD FUNCTION TempMaxMem(VAR grow: Size): Size; INLINE $3F3C,$0015,$A88F; æKY TempFreeMem æT Function æFc Memory.p æD FUNCTION TempFreeMem: LONGINT; INLINE $3F3C,$0018,$A88F; æKY TempHLock æT Function æFc Memory.p æD PROCEDURE TempHLock(h: Handle;VAR resultCode: OSErr); INLINE $3F3C,$001E,$A88F; æKY TempHUnlock æT Function æFc Memory.p æD PROCEDURE TempHUnlock(h: Handle;VAR resultCode: OSErr); INLINE $3F3C,$001F,$A88F; æKY TempDisposeHandle æT Function æFc Memory.p æD PROCEDURE TempDisposeHandle(h: Handle;VAR resultCode: OSErr); INLINE $3F3C,$0020,$A88F; æKY TempTopMem æT Function æFc Memory.p æD FUNCTION TempTopMem: Ptr; INLINE $3F3C,$0016,$A88F; æKY MFMaxMem æT Function æFc Memory.p æD FUNCTION MFMaxMem(VAR grow: Size): Size; INLINE $3F3C,$0015,$A88F; æKY MFFreeMem æT Function æFc Memory.p æD FUNCTION MFFreeMem: LONGINT; INLINE $3F3C,$0018,$A88F; æKY MFTempNewHandle æT Function æFc Memory.p æD FUNCTION MFTempNewHandle(logicalSize: Size;VAR resultCode: OSErr): Handle; INLINE $3F3C,$001D,$A88F; æKY MFTempHLock æT Function æFc Memory.p æD PROCEDURE MFTempHLock(h: Handle;VAR resultCode: OSErr); INLINE $3F3C,$001E,$A88F; æKY MFTempHUnlock æT Function æFc Memory.p æD PROCEDURE MFTempHUnlock(h: Handle;VAR resultCode: OSErr); INLINE $3F3C,$001F,$A88F; æKY MFTempDisposHandle æT Function æFc Memory.p æD PROCEDURE MFTempDisposHandle(h: Handle;VAR resultCode: OSErr); INLINE $3F3C,$0020,$A88F; æKY MFTopMem æT Function æFc Memory.p æD FUNCTION MFTopMem: Ptr; INLINE $3F3C,$0016,$A88F; æKY InitApplZone æT Function æFc Memory.p æD PROCEDURE InitApplZone; INLINE $A02C; æKY InitZone æT Function æFc Memory.p æD PROCEDURE InitZone(pgrowZone: ProcPtr;cmoreMasters: INTEGER;limitPtr: UNIV Ptr; startPtr: UNIV Ptr); æKY SetZone æT Function æFc Memory.p æD PROCEDURE SetZone(hz: THz); INLINE $205F,$A01B; æKY CompactMem æT Function æFc Memory.p æD FUNCTION CompactMem(cbNeeded: Size): Size; æKY CompactMemSys æT Function æFc Memory.p æD FUNCTION CompactMemSys(cbNeeded: Size): Size; æKY PurgeMem æT Function æFc Memory.p æD PROCEDURE PurgeMem(cbNeeded: Size); INLINE $201F,$A04D; æKY PurgeMemSys æT Function æFc Memory.p æD PROCEDURE PurgeMemSys(cbNeeded: Size); INLINE $201F,$A44D; æKY FreeMem æT Function æFc Memory.p æD FUNCTION FreeMem: LONGINT; INLINE $A01C,$2E80; æKY FreeMemSys æT Function æFc Memory.p æD FUNCTION FreeMemSys: LONGINT; INLINE $A41C,$2E80; æKY ResrvMem æT Function æFc Memory.p æD PROCEDURE ResrvMem(cbNeeded: Size); INLINE $201F,$A040; æKY ReserveMem æT Function æFc Memory.p æD PROCEDURE ReserveMem(cbNeeded: Size); INLINE $201F,$A040; æKY ReserveMemSys æT Function æFc Memory.p æD PROCEDURE ReserveMemSys(cbNeeded: Size); INLINE $201F,$A440; æKY MaxMem æT Function æFc Memory.p æD FUNCTION MaxMem(VAR grow: Size): Size; æKY MaxMemSys æT Function æFc Memory.p æD FUNCTION MaxMemSys(VAR grow: Size): Size; æKY SetGrowZone æT Function æFc Memory.p æD PROCEDURE SetGrowZone(growZone: ProcPtr); INLINE $205F,$A04B; æKY SetApplLimit æT Function æFc Memory.p æD PROCEDURE SetApplLimit(zoneLimit: UNIV Ptr); INLINE $205F,$A02D; æKY MoveHHi æT Function æFc Memory.p æD PROCEDURE MoveHHi(h: Handle); INLINE $205F,$A064; æKY DisposPtr æT Function æFc Memory.p æD PROCEDURE DisposPtr(p: Ptr); INLINE $205F,$A01F; æKY DisposePtr æT Function æFc Memory.p æD PROCEDURE DisposePtr(p: Ptr); INLINE $205F,$A01F; æKY GetPtrSize æT Function æFc Memory.p æD FUNCTION GetPtrSize(p: Ptr): Size; æKY SetPtrSize æT Function æFc Memory.p æD PROCEDURE SetPtrSize(p: Ptr;newSize: Size); æKY DisposHandle æT Function æFc Memory.p æD PROCEDURE DisposHandle(h: Handle); INLINE $205F,$A023; æKY DisposeHandle æT Function æFc Memory.p æD PROCEDURE DisposeHandle(h: Handle); INLINE $205F,$A023; æKY GetHandleSize æT Function æFc Memory.p æD FUNCTION GetHandleSize(h: Handle): Size; æKY SetHandleSize æT Function æFc Memory.p æD PROCEDURE SetHandleSize(h: Handle;newSize: Size); æKY EmptyHandle æT Function æFc Memory.p æD PROCEDURE EmptyHandle(h: Handle); INLINE $205F,$A02B; æKY ReallocHandle æT Function æFc Memory.p æD PROCEDURE ReallocHandle(h: Handle;byteCount: Size); æKY ReallocateHandle æT Function æFc Memory.p æD PROCEDURE ReallocateHandle(h: Handle;byteCount: Size); æKY HSetRBit æT Function æFc Memory.p æD PROCEDURE HSetRBit(h: Handle); INLINE $205F,$A067; æKY HClrRBit æT Function æFc Memory.p æD PROCEDURE HClrRBit(h: Handle); INLINE $205F,$A068; æKY MoreMasters æT Function æFc Memory.p æD PROCEDURE MoreMasters; INLINE $A036; æKY BlockMove æT Function æFc Memory.p æD PROCEDURE BlockMove(srcPtr: UNIV Ptr;destPtr: UNIV Ptr;byteCount: Size); æKY MemError æT Function æFc Memory.p æD FUNCTION MemError: OSErr; INLINE $3EB8,$0220; æKY PurgeSpace æT Function æFc Memory.p æD PROCEDURE PurgeSpace(VAR total: LONGINT;VAR contig: LONGINT); æKY HGetState æT Function æFc Memory.p æD FUNCTION HGetState(h: Handle): SignedByte; æKY HSetState æT Function æFc Memory.p æD PROCEDURE HSetState(h: Handle;flags: SignedByte); æKY SetApplBase æT Function æFc Memory.p æD PROCEDURE SetApplBase(startPtr: UNIV Ptr); INLINE $205F,$A057; æKY MaxApplZone æT Function æFc Memory.p æD PROCEDURE MaxApplZone; INLINE $A063; æKY HoldMemory æT Function æFc Memory.p æD FUNCTION HoldMemory(address: UNIV Ptr;count: LONGINT): OSErr; æKY UnholdMemory æT Function æFc Memory.p æD FUNCTION UnholdMemory(address: UNIV Ptr;count: LONGINT): OSErr; æKY LockMemory æT Function æFc Memory.p æD FUNCTION LockMemory(address: UNIV Ptr;count: LONGINT): OSErr; æKY LockMemoryContiguous æT Function æFc Memory.p æD FUNCTION LockMemoryContiguous(address: UNIV Ptr;count: LONGINT): OSErr; æKY UnlockMemory æT Function æFc Memory.p æD FUNCTION UnlockMemory(address: UNIV Ptr;count: LONGINT): OSErr; æKY GetPhysical æT Function æFc Memory.p æD FUNCTION GetPhysical(VAR addresses: LogicalToPhysicalTable;VAR physicalEntryCount: LONGINT): OSErr; æKY DeferUserFn æT Function æFc Memory.p æD FUNCTION DeferUserFn(userFunction: ProcPtr;argument: UNIV Ptr): OSErr; æKY DebuggerGetMax æT Function æFc Memory.p æD FUNCTION DebuggerGetMax: LONGINT; INLINE $7000,$A08D,$2E80; æKY DebuggerEnter æT Function æFc Memory.p æD PROCEDURE DebuggerEnter; INLINE $7001,$A08D; æKY DebuggerExit æT Function æFc Memory.p æD PROCEDURE DebuggerExit; INLINE $7002,$A08D; æKY DebuggerPoll æT Function æFc Memory.p æD PROCEDURE DebuggerPoll; INLINE $7003,$A08D; æKY GetPageState æT Function æFc Memory.p æD FUNCTION GetPageState(address: UNIV Ptr): PageState; INLINE $205F,$7004,$A08D,$3E80; æKY PageFaultFatal æT Function æFc Memory.p æD FUNCTION PageFaultFatal: BOOLEAN; INLINE $7005,$A08D,$1E80; æKY DebuggerLockMemory æT Function æFc Memory.p æD FUNCTION DebuggerLockMemory(address: UNIV Ptr;count: LONGINT): OSErr; æKY DebuggerUnlockMemory æT Function æFc Memory.p æD FUNCTION DebuggerUnlockMemory(address: UNIV Ptr;count: LONGINT): OSErr; æKY EnterSupervisorMode æT Function æFc Memory.p æD FUNCTION EnterSupervisorMode: StatusRegisterContents; INLINE $7008,$A08D,$3E80; æKY Menus.p æKL AddResMenu AppendMenu CalcMenuSize CheckItem ClearMenuBar CountMItems DeleteMenu DelMCEntries DelMenuItem DisableItem DispMCInfo DisposeMenu DrawMenuBar EnableItem FlashMenuBar GetItem GetItemCmd GetItemIcon GetItemMark GetItemStyle GetMCEntry GetMCInfo GetMenu GetMenuBar GetMHandle GetNewMBar HiliteMenu InitMenus InitProcMenu InsertMenu InsertResMenu InsMenuItem InvalMenuBar MenuChoice MenuKey MenuSelect NewMenu PopUpMenuSelect SetItem SetItemCmd SetItemIcon SetItemMark SetItemStyle SetMCEntries SetMCInfo SetMenuBar SetMenuFlash hierMenu hMenuCmd mCalcItemMsg MCEntry MCEntryPtr mChooseMsg MCTable mctAllItems mctLastIDIndic mDrawItemMsg mDrawMsg MenuCRsrc MenuCRsrcHandle MenuCRsrcPtr MenuHandle MenuInfo MenuPtr mPopUpMsg mSizeMsg noMark SavedBits textMenuProc æKY noMark æT constant æFc Menus.p æD noMark = 0; {mark symbol for MarkItem} æKY mDrawMsg æT constant æFc Menus.p æD mDrawMsg = 0; æKY mChooseMsg æT constant æFc Menus.p æD mChooseMsg = 1; æKY mSizeMsg æT constant æFc Menus.p æD mSizeMsg = 2; æKY mDrawItemMsg æT constant æFc Menus.p æD mDrawItemMsg = 4; æKY mCalcItemMsg æT constant æFc Menus.p æD mCalcItemMsg = 5; æKY textMenuProc æT constant æFc Menus.p æD textMenuProc = 0; æKY hMenuCmd æT constant æFc Menus.p æD hMenuCmd = 27; {itemCmd == 0x001B ==> hierarchical menu} æKY hierMenu æT constant æFc Menus.p æD hierMenu = -1; {a hierarchical menu - for InsertMenu call} æKY mPopUpMsg æT constant æFc Menus.p æD mPopUpMsg = 3; {menu defProc messages - place yourself} æKY mctAllItems æT constant æFc Menus.p æD mctAllItems = -98; {search for all Items for the given ID} æKY mctLastIDIndic æT constant æFc Menus.p æD mctLastIDIndic = -99; {last color table entry has this in ID field} æKY MenuInfo æT struct æFc Menus.p æD MenuPtr = ^MenuInfo; MenuHandle = ^MenuPtr; MenuInfo = RECORD menuID: INTEGER; menuWidth: INTEGER; menuHeight: INTEGER; menuProc: Handle; enableFlags: LONGINT; menuData: Str255; END; æKY MCEntry æT struct æFc Menus.p æD MCEntryPtr = ^MCEntry; MCEntry = RECORD mctID: INTEGER; {menu ID. ID = 0 is the menu bar} mctItem: INTEGER; {menu Item. Item = 0 is a title} mctRGB1: RGBColor; {usage depends on ID and Item} mctRGB2: RGBColor; {usage depends on ID and Item} mctRGB3: RGBColor; {usage depends on ID and Item} mctRGB4: RGBColor; {usage depends on ID and Item} mctReserved: INTEGER; {reserved for internal use} END; æKY MCTable æT typedef æFc Menus.p æD MCTablePtr = ^MCTable; MCTableHandle = ^MCTablePtr; MCTable = ARRAY [0..0] OF MCEntry; { the entries themselves } æKY MenuCRsrc æT struct æFc Menus.p æD MenuCRsrcPtr = ^MenuCRsrc; MenuCRsrcHandle = ^MenuCRsrcPtr; MenuCRsrc = RECORD numEntries: INTEGER; {number of entries} mcEntryRecs: MCTable; {ARRAY [1..numEntries] of MCEntry} END; æKY SavedBits æT typedef æFc Menus.p æD SavedBits = LONGINT; { For Save/Restore/Discard Bits calls } æKY InitMenus æT Function æFc Menus.p æD PROCEDURE InitMenus; INLINE $A930; æKY NewMenu æT Function æFc Menus.p æD FUNCTION NewMenu(menuID: INTEGER;menuTitle: Str255): MenuHandle; INLINE $A931; æKY GetMenu æT Function æFc Menus.p æD FUNCTION GetMenu(resourceID: INTEGER): MenuHandle; INLINE $A9BF; æKY DisposeMenu æT Function æFc Menus.p æD PROCEDURE DisposeMenu(theMenu: MenuHandle); INLINE $A932; æKY AppendMenu æT Function æFc Menus.p æD PROCEDURE AppendMenu(menu: MenuHandle;data: Str255); INLINE $A933; æKY AddResMenu æT Function æFc Menus.p æD PROCEDURE AddResMenu(theMenu: MenuHandle;theType: ResType); INLINE $A94D; æKY InsertResMenu æT Function æFc Menus.p æD PROCEDURE InsertResMenu(theMenu: MenuHandle;theType: ResType;afterItem: INTEGER); INLINE $A951; æKY InsertMenu æT Function æFc Menus.p æD PROCEDURE InsertMenu(theMenu: MenuHandle;beforeID: INTEGER); INLINE $A935; æKY DrawMenuBar æT Function æFc Menus.p æD PROCEDURE DrawMenuBar; INLINE $A937; æKY InvalMenuBar æT Function æFc Menus.p æD PROCEDURE InvalMenuBar; INLINE $A81D; æKY DeleteMenu æT Function æFc Menus.p æD PROCEDURE DeleteMenu(menuID: INTEGER); INLINE $A936; æKY ClearMenuBar æT Function æFc Menus.p æD PROCEDURE ClearMenuBar; INLINE $A934; æKY GetNewMBar æT Function æFc Menus.p æD FUNCTION GetNewMBar(menuBarID: INTEGER): Handle; INLINE $A9C0; æKY GetMenuBar æT Function æFc Menus.p æD FUNCTION GetMenuBar: Handle; INLINE $A93B; æKY SetMenuBar æT Function æFc Menus.p æD PROCEDURE SetMenuBar(menuList: Handle); INLINE $A93C; æKY InsMenuItem æT Function æFc Menus.p æD PROCEDURE InsMenuItem(theMenu: MenuHandle;itemString: Str255;afterItem: INTEGER); INLINE $A826; æKY DelMenuItem æT Function æFc Menus.p æD PROCEDURE DelMenuItem(theMenu: MenuHandle;item: INTEGER); INLINE $A952; æKY MenuKey æT Function æFc Menus.p æD FUNCTION MenuKey(ch: CHAR): LONGINT; INLINE $A93E; æKY HiliteMenu æT Function æFc Menus.p æD PROCEDURE HiliteMenu(menuID: INTEGER); INLINE $A938; æKY SetItem æT Function æFc Menus.p æD PROCEDURE SetItem(theMenu: MenuHandle;item: INTEGER;itemString: Str255); INLINE $A947; æKY GetItem æT Function æFc Menus.p æD PROCEDURE GetItem(theMenu: MenuHandle;item: INTEGER;VAR itemString: Str255); INLINE $A946; æKY DisableItem æT Function æFc Menus.p æD PROCEDURE DisableItem(theMenu: MenuHandle;item: INTEGER); INLINE $A93A; æKY EnableItem æT Function æFc Menus.p æD PROCEDURE EnableItem(theMenu: MenuHandle;item: INTEGER); INLINE $A939; æKY CheckItem æT Function æFc Menus.p æD PROCEDURE CheckItem(theMenu: MenuHandle;item: INTEGER;checked: BOOLEAN); INLINE $A945; æKY SetItemMark æT Function æFc Menus.p æD PROCEDURE SetItemMark(theMenu: MenuHandle;item: INTEGER;markChar: CHAR); INLINE $A944; æKY GetItemMark æT Function æFc Menus.p æD PROCEDURE GetItemMark(theMenu: MenuHandle;item: INTEGER;VAR markChar: CHAR); INLINE $A943; æKY SetItemIcon æT Function æFc Menus.p æD PROCEDURE SetItemIcon(theMenu: MenuHandle;item: INTEGER;iconNum: Byte); INLINE $A940; æKY GetItemIcon æT Function æFc Menus.p æD PROCEDURE GetItemIcon(theMenu: MenuHandle;item: INTEGER;VAR iconNum: Byte); INLINE $A93F; æKY SetItemStyle æT Function æFc Menus.p æD PROCEDURE SetItemStyle(theMenu: MenuHandle;item: INTEGER;chStyle: Style); INLINE $A942; æKY GetItemStyle æT Function æFc Menus.p æD PROCEDURE GetItemStyle(theMenu: MenuHandle;item: INTEGER;VAR chStyle: Style); æKY CalcMenuSize æT Function æFc Menus.p æD PROCEDURE CalcMenuSize(theMenu: MenuHandle); INLINE $A948; æKY CountMItems æT Function æFc Menus.p æD FUNCTION CountMItems(theMenu: MenuHandle): INTEGER; INLINE $A950; æKY GetMHandle æT Function æFc Menus.p æD FUNCTION GetMHandle(menuID: INTEGER): MenuHandle; INLINE $A949; æKY FlashMenuBar æT Function æFc Menus.p æD PROCEDURE FlashMenuBar(menuID: INTEGER); INLINE $A94C; æKY SetMenuFlash æT Function æFc Menus.p æD PROCEDURE SetMenuFlash(count: INTEGER); INLINE $A94A; æKY MenuSelect æT Function æFc Menus.p æD FUNCTION MenuSelect(startPt: Point): LONGINT; INLINE $A93D; æKY InitProcMenu æT Function æFc Menus.p æD PROCEDURE InitProcMenu(resID: INTEGER); INLINE $A808; æKY GetItemCmd æT Function æFc Menus.p æD PROCEDURE GetItemCmd(theMenu: MenuHandle;item: INTEGER;VAR cmdChar: CHAR); INLINE $A84E; æKY SetItemCmd æT Function æFc Menus.p æD PROCEDURE SetItemCmd(theMenu: MenuHandle;item: INTEGER;cmdChar: CHAR); INLINE $A84F; æKY PopUpMenuSelect æT Function æFc Menus.p æD FUNCTION PopUpMenuSelect(menu: MenuHandle;top: INTEGER;left: INTEGER;popUpItem: INTEGER): LONGINT; INLINE $A80B; æKY MenuChoice æT Function æFc Menus.p æD FUNCTION MenuChoice: LONGINT; INLINE $AA66; æKY DelMCEntries æT Function æFc Menus.p æD PROCEDURE DelMCEntries(menuID: INTEGER;menuItem: INTEGER); INLINE $AA60; æKY GetMCInfo æT Function æFc Menus.p æD FUNCTION GetMCInfo: MCTableHandle; INLINE $AA61; æKY SetMCInfo æT Function æFc Menus.p æD PROCEDURE SetMCInfo(menuCTbl: MCTableHandle); INLINE $AA62; æKY DispMCInfo æT Function æFc Menus.p æD PROCEDURE DispMCInfo(menuCTbl: MCTableHandle); INLINE $AA63; æKY GetMCEntry æT Function æFc Menus.p æD FUNCTION GetMCEntry(menuID: INTEGER;menuItem: INTEGER): MCEntryPtr; INLINE $AA64; æKY SetMCEntries æT Function æFc Menus.p æD PROCEDURE SetMCEntries(numEntries: INTEGER;menuCEntries: MCTablePtr); INLINE $AA65; æKY MIDI.p æKL MIDIAddPort MIDIConnectData MIDIConnectTime MIDIConvertTime MIDIFlush MIDIGetClientIcon MIDIGetClientName MIDIGetClients MIDIGetClRefCon MIDIGetCurTime MIDIGetOffsetTime MIDIGetPortInfo MIDIGetPortName MIDIGetPorts MIDIGetReadHook MIDIGetRefCon MIDIGetSync MIDIGetTCFormat MIDIPoll MIDIRemovePort MIDISetClientName MIDISetClRefCon MIDISetCurTime MIDISetOffsetTime MIDISetPortName MIDISetReadHook MIDISetRefCon MIDISetRunRate MIDISetSync MIDISetTCFormat MIDISignIn MIDISignOut MIDIStartTime MIDIStopTime MIDIUnConnectData MIDIUnConnectTime MIDIWakeUp MIDIWorldChanged MIDIWritePacket SndDispVersion MIDIClkInfo midiCloseDriver midiContMask midiDupIDErr midiEndCont midiExternalSync midiFormat24fpsBit midiFormat24fpsQF midiFormat25fpsBit midiFormat25fpsQF midiFormat30fpsBit midiFormat30fpsDBit midiFormat30fpsDQF midiFormat30fpsQF midiFormatBeats midiFormatMSec midiGetCurrent midiGetEverything midiGetNothing MIDIIDList MIDIIDListHdl MIDIIDListPtr MIDIIDRec midiInternalSync midiInvalidCmdErr midiKeepPacket midiMaxErr midiMaxNameLen midiMgrType midiMidCont midiMorePacket midiMsgType midiNameLenErr midiNoClientErr midiNoConErr midiNoCont midiNoMorePacket midiNoPortErr midiOpenDriver midiOverflowErr MIDIPacket midiPacketErr MIDIPacketPtr MIDIPortInfo MIDIPortInfoHdl MIDIPortInfoPtr MIDIPortParams MIDIPortParamsPtr midiPortTypeInput midiPortTypeOutput midiPortTypeTime midiPortTypeTimeInv midiSCCErr midiStartCont midiTimeStampCurrent midiTimeStampMask midiTimeStampValid midiToolNum midiTooManyConsErr midiTooManyPortsErr midiTypeMask midiVConnectErr midiVConnectMade midiVConnectRmvd midiWriteErr æKY midiToolNum æT constant æFc MIDI.p æD midiToolNum = 4; {tool number of MIDI Manager for SndDispVersion call} æKY midiMaxNameLen æT constant æFc MIDI.p æD midiMaxNameLen = 31; {maximum number of characters in port and client names} æKY midiFormatMSec æT constant æFc MIDI.p æD midiFormatMSec = 0; {milliseconds} æKY midiFormatBeats æT constant æFc MIDI.p æD midiFormatBeats = 1; {beats} æKY midiFormat24fpsBit æT constant æFc MIDI.p æD midiFormat24fpsBit = 2; {24 frames/sec.} æKY midiFormat25fpsBit æT constant æFc MIDI.p æD midiFormat25fpsBit = 3; {25 frames/sec.} æKY midiFormat30fpsDBit æT constant æFc MIDI.p æD midiFormat30fpsDBit = 4; {30 frames/sec. drop-frame} æKY midiFormat30fpsBit æT constant æFc MIDI.p æD midiFormat30fpsBit = 5; {30 frames/sec.} æKY midiFormat24fpsQF æT constant æFc MIDI.p æD midiFormat24fpsQF = 6; {24 frames/sec. longInt format } æKY midiFormat25fpsQF æT constant æFc MIDI.p æD midiFormat25fpsQF = 7; {25 frames/sec. longInt format } æKY midiFormat30fpsDQF æT constant æFc MIDI.p æD midiFormat30fpsDQF = 8; {30 frames/sec. drop-frame longInt format } æKY midiFormat30fpsQF æT constant æFc MIDI.p æD midiFormat30fpsQF = 9; {30 frames/sec. longInt format } æKY midiInternalSync æT constant æFc MIDI.p æD midiInternalSync = 0; {internal sync} æKY midiExternalSync æT constant æFc MIDI.p æD midiExternalSync = 1; {external sync} æKY midiPortTypeTime æT constant æFc MIDI.p æD midiPortTypeTime = 0; {time port} æKY midiPortTypeInput æT constant æFc MIDI.p æD midiPortTypeInput = 1; {input port} æKY midiPortTypeOutput æT constant æFc MIDI.p æD midiPortTypeOutput = 2; {output port} æKY midiPortTypeTimeInv æT constant æFc MIDI.p æD midiPortTypeTimeInv = 3; {invisible time port} æKY midiGetEverything æT constant æFc MIDI.p æD midiGetEverything = $7FFFFFFF; {get all packets, regardless of time stamps} æKY midiGetNothing æT constant æFc MIDI.p æD midiGetNothing = $80000000; {get no packets, regardless of time stamps} æKY midiGetCurrent æT constant æFc MIDI.p æD midiGetCurrent = $00000000; {get current packets only} æKY midiContMask æT constant æFc MIDI.p æD midiContMask = $03; æKY midiNoCont æT constant æFc MIDI.p æD midiNoCont = $00; æKY midiStartCont æT constant æFc MIDI.p æD midiStartCont = $01; æKY midiMidCont æT constant æFc MIDI.p æD midiMidCont = $03; æKY midiEndCont æT constant æFc MIDI.p æD midiEndCont = $02; æKY midiTypeMask æT constant æFc MIDI.p æD midiTypeMask = $70; æKY midiMsgType æT constant æFc MIDI.p æD midiMsgType = $00; æKY midiMgrType æT constant æFc MIDI.p æD midiMgrType = $10; æKY midiTimeStampMask æT constant æFc MIDI.p æD midiTimeStampMask = $80; æKY midiTimeStampCurrent æT constant æFc MIDI.p æD midiTimeStampCurrent = $80; æKY midiTimeStampValid æT constant æFc MIDI.p æD midiTimeStampValid = $00; æKY midiOverflowErr æT constant æFc MIDI.p æD midiOverflowErr = $0001; æKY midiSCCErr æT constant æFc MIDI.p æD midiSCCErr = $0002; æKY midiPacketErr æT constant æFc MIDI.p æD midiPacketErr = $0003; æKY midiMaxErr æT constant æFc MIDI.p æD midiMaxErr = $00FF; {all command words less than this value are error indicators} æKY midiKeepPacket æT constant æFc MIDI.p æD midiKeepPacket = 0; æKY midiMorePacket æT constant æFc MIDI.p æD midiMorePacket = 1; æKY midiNoMorePacket æT constant æFc MIDI.p æD midiNoMorePacket = 2; æKY midiNoClientErr æT constant æFc MIDI.p æD midiNoClientErr = -250; {no client with that ID found} æKY midiNoPortErr æT constant æFc MIDI.p æD midiNoPortErr = -251; {no port with that ID found} æKY midiTooManyPortsErr æT constant æFc MIDI.p æD midiTooManyPortsErr = -252; {too many ports already installed in the system} æKY midiTooManyConsErr æT constant æFc MIDI.p æD midiTooManyConsErr = -253; {too many connections made} æKY midiVConnectErr æT constant æFc MIDI.p æD midiVConnectErr = -254; {pending virtual connection created} æKY midiVConnectMade æT constant æFc MIDI.p æD midiVConnectMade = -255; {pending virtual connection resolved} æKY midiVConnectRmvd æT constant æFc MIDI.p æD midiVConnectRmvd = -256; {pending virtual connection removed} æKY midiNoConErr æT constant æFc MIDI.p æD midiNoConErr = -257; {no connection exists between specified ports} æKY midiWriteErr æT constant æFc MIDI.p æD midiWriteErr = -258; {MIDIWritePacket couldn't write to all connected ports} æKY midiNameLenErr æT constant æFc MIDI.p æD midiNameLenErr = -259; {name supplied is longer than 31 characters} æKY midiDupIDErr æT constant æFc MIDI.p æD midiDupIDErr = -260; {duplicate client ID} æKY midiInvalidCmdErr æT constant æFc MIDI.p æD midiInvalidCmdErr = -261; {command not supported for port type} æKY midiOpenDriver æT constant æFc MIDI.p æD midiOpenDriver = 1; æKY midiCloseDriver æT constant æFc MIDI.p æD midiCloseDriver = 2; æKY MIDIPacket æT struct æFc MIDI.p æD MIDIPacketPtr = ^MIDIPacket; MIDIPacket = PACKED RECORD flags: Byte; len: Byte; tStamp: LONGINT; data: PACKED ARRAY [0..248] OF Byte; END; æKY MIDIClkInfo æT struct æFc MIDI.p æD MIDIClkInfo = RECORD sync: INTEGER; {synchronization external/internal} curTime: LONGINT; {current value of port's clock} format: INTEGER; {time code format} END; æKY MIDIIDRec æT struct æFc MIDI.p æD MIDIIDRec = RECORD clientID: OSType; portID: OSType; END; æKY MIDIPortInfo æT struct æFc MIDI.p æD MIDIPortInfoPtr = ^MIDIPortInfo; MIDIPortInfoHdl = ^MIDIPortInfoPtr; MIDIPortInfo = RECORD portType: INTEGER; {type of port} timeBase: MIDIIDRec; {MIDIIDRec for time base} numConnects: INTEGER; {number of connections} cList: ARRAY [1..100] OF MIDIIDRec; END; æKY MIDIPortParams æT struct æFc MIDI.p æD MIDIPortParamsPtr = ^MIDIPortParams; MIDIPortParams = RECORD portID: OSType; {ID of port, unique within client} portType: INTEGER; {Type of port - input, output, time, etc.} timeBase: INTEGER; {refnum of time base, 0 if none} offsetTime: LONGINT; {offset for current time stamps} readHook: Ptr; {routine to call when input data is valid} refCon: LONGINT; {refcon for port (for client use)} initClock: MIDIClkInfo; {initial settings for a time base} name: Str255; {name of the port, This is a real live string, not a ptr.} END; æKY MIDIIDList æT struct æFc MIDI.p æD MIDIIDListPtr = ^MIDIIDList; MIDIIDListHdl = ^MIDIIDListPtr; MIDIIDList = RECORD numIDs: INTEGER; list: ARRAY [1..100] OF OSType; END; æKY SndDispVersion æT Function æFc MIDI.p æD FUNCTION SndDispVersion(toolnum: INTEGER): LONGINT; æKY MIDISignIn æT Function æFc MIDI.p æD FUNCTION MIDISignIn(clientID: OSType;refCon: LONGINT;icon: Handle;name: Str255): OSErr; INLINE $203C,$0004,midiToolNum,$A800; æKY MIDISignOut æT Function æFc MIDI.p æD PROCEDURE MIDISignOut(clientID: OSType); INLINE $203C,$0008,midiToolNum,$A800; æKY MIDIGetClients æT Function æFc MIDI.p æD FUNCTION MIDIGetClients: MIDIIDListHdl; INLINE $203C,$000C,midiToolNum,$A800; æKY MIDIGetClientName æT Function æFc MIDI.p æD PROCEDURE MIDIGetClientName(clientID: OSType;VAR name: Str255); INLINE $203C,$0010,midiToolNum,$A800; æKY MIDISetClientName æT Function æFc MIDI.p æD PROCEDURE MIDISetClientName(clientID: OSType;name: Str255); INLINE $203C,$0014,midiToolNum,$A800; æKY MIDIGetPorts æT Function æFc MIDI.p æD FUNCTION MIDIGetPorts(clientID: OSType): MIDIIDListHdl; INLINE $203C,$0018,midiToolNum,$A800; æKY MIDIAddPort æT Function æFc MIDI.p æD FUNCTION MIDIAddPort(clientID: OSType;BufSize: INTEGER;VAR refnum: INTEGER; init: MIDIPortParamsPtr): OSErr; INLINE $203C,$001C,midiToolNum,$A800; æKY MIDIGetPortInfo æT Function æFc MIDI.p æD FUNCTION MIDIGetPortInfo(clientID: OSType;portID: OSType): MIDIPortInfoHdl; INLINE $203C,$0020,midiToolNum,$A800; æKY MIDIConnectData æT Function æFc MIDI.p æD FUNCTION MIDIConnectData(srcClID: OSType;srcPortID: OSType;dstClID: OSType; dstPortID: OSType): OSErr; INLINE $203C,$0024,midiToolNum,$A800; æKY MIDIUnConnectData æT Function æFc MIDI.p æD FUNCTION MIDIUnConnectData(srcClID: OSType;srcPortID: OSType;dstClID: OSType; dstPortID: OSType): OSErr; INLINE $203C,$0028,midiToolNum,$A800; æKY MIDIConnectTime æT Function æFc MIDI.p æD FUNCTION MIDIConnectTime(srcClID: OSType;srcPortID: OSType;dstClID: OSType; dstPortID: OSType): OSErr; INLINE $203C,$002C,midiToolNum,$A800; æKY MIDIUnConnectTime æT Function æFc MIDI.p æD FUNCTION MIDIUnConnectTime(srcClID: OSType;srcPortID: OSType;dstClID: OSType; dstPortID: OSType): OSErr; INLINE $203C,$0030,midiToolNum,$A800; æKY MIDIFlush æT Function æFc MIDI.p æD PROCEDURE MIDIFlush(refnum: INTEGER); INLINE $203C,$0034,midiToolNum,$A800; æKY MIDIGetReadHook æT Function æFc MIDI.p æD FUNCTION MIDIGetReadHook(refnum: INTEGER): ProcPtr; INLINE $203C,$0038,midiToolNum,$A800; æKY MIDISetReadHook æT Function æFc MIDI.p æD PROCEDURE MIDISetReadHook(refnum: INTEGER;hook: ProcPtr); INLINE $203C,$003C,midiToolNum,$A800; æKY MIDIGetPortName æT Function æFc MIDI.p æD PROCEDURE MIDIGetPortName(clientID: OSType;portID: OSType;VAR name: Str255); INLINE $203C,$0040,midiToolNum,$A800; æKY MIDISetPortName æT Function æFc MIDI.p æD PROCEDURE MIDISetPortName(clientID: OSType;portID: OSType;name: Str255); INLINE $203C,$0044,midiToolNum,$A800; æKY MIDIWakeUp æT Function æFc MIDI.p æD PROCEDURE MIDIWakeUp(refnum: INTEGER;time: LONGINT;period: LONGINT;timeProc: ProcPtr); INLINE $203C,$0048,midiToolNum,$A800; æKY MIDIRemovePort æT Function æFc MIDI.p æD PROCEDURE MIDIRemovePort(refnum: INTEGER); INLINE $203C,$004C,midiToolNum,$A800; æKY MIDIGetSync æT Function æFc MIDI.p æD FUNCTION MIDIGetSync(refnum: INTEGER): INTEGER; INLINE $203C,$0050,midiToolNum,$A800; æKY MIDISetSync æT Function æFc MIDI.p æD PROCEDURE MIDISetSync(refnum: INTEGER;sync: INTEGER); INLINE $203C,$0054,midiToolNum,$A800; æKY MIDIGetCurTime æT Function æFc MIDI.p æD FUNCTION MIDIGetCurTime(refnum: INTEGER): LONGINT; INLINE $203C,$0058,midiToolNum,$A800; æKY MIDISetCurTime æT Function æFc MIDI.p æD PROCEDURE MIDISetCurTime(refnum: INTEGER;time: LONGINT); INLINE $203C,$005C,midiToolNum,$A800; æKY MIDIStartTime æT Function æFc MIDI.p æD PROCEDURE MIDIStartTime(refnum: INTEGER); INLINE $203C,$0060,midiToolNum,$A800; æKY MIDIStopTime æT Function æFc MIDI.p æD PROCEDURE MIDIStopTime(refnum: INTEGER); INLINE $203C,$0064,midiToolNum,$A800; æKY MIDIPoll æT Function æFc MIDI.p æD PROCEDURE MIDIPoll(refnum: INTEGER;offsetTime: LONGINT); INLINE $203C,$0068,midiToolNum,$A800; æKY MIDIWritePacket æT Function æFc MIDI.p æD FUNCTION MIDIWritePacket(refnum: INTEGER;packet: MIDIPacketPtr): OSErr; INLINE $203C,$006C,midiToolNum,$A800; æKY MIDIWorldChanged æT Function æFc MIDI.p æD FUNCTION MIDIWorldChanged(clientID: OSType): BOOLEAN; INLINE $203C,$0070,midiToolNum,$A800; æKY MIDIGetOffsetTime æT Function æFc MIDI.p æD FUNCTION MIDIGetOffsetTime(refnum: INTEGER): LONGINT; INLINE $203C,$0074,midiToolNum,$A800; æKY MIDISetOffsetTime æT Function æFc MIDI.p æD PROCEDURE MIDISetOffsetTime(refnum: INTEGER;offsetTime: LONGINT); INLINE $203C,$0078,midiToolNum,$A800; æKY MIDIConvertTime æT Function æFc MIDI.p æD FUNCTION MIDIConvertTime(srcFormat: INTEGER;dstFormat: INTEGER;time: LONGINT): LONGINT; INLINE $203C,$007C,midiToolNum,$A800; æKY MIDIGetRefCon æT Function æFc MIDI.p æD FUNCTION MIDIGetRefCon(refnum: INTEGER): LONGINT; INLINE $203C,$0080,midiToolNum,$A800; æKY MIDISetRefCon æT Function æFc MIDI.p æD PROCEDURE MIDISetRefCon(refnum: INTEGER;refCon: LONGINT); INLINE $203C,$0084,midiToolNum,$A800; æKY MIDIGetClRefCon æT Function æFc MIDI.p æD FUNCTION MIDIGetClRefCon(clientID: OSType): LONGINT; INLINE $203C,$0088,midiToolNum,$A800; æKY MIDISetClRefCon æT Function æFc MIDI.p æD PROCEDURE MIDISetClRefCon(clientID: OSType;refCon: LONGINT); INLINE $203C,$008C,midiToolNum,$A800; æKY MIDIGetTCFormat æT Function æFc MIDI.p æD FUNCTION MIDIGetTCFormat(refnum: INTEGER): INTEGER; INLINE $203C,$0090,midiToolNum,$A800; æKY MIDISetTCFormat æT Function æFc MIDI.p æD PROCEDURE MIDISetTCFormat(refnum: INTEGER;format: INTEGER); INLINE $203C,$0094,midiToolNum,$A800; æKY MIDISetRunRate æT Function æFc MIDI.p æD PROCEDURE MIDISetRunRate(refnum: INTEGER;rate: INTEGER;time: LONGINT); INLINE $203C,$0098,midiToolNum,$A800; æKY MIDIGetClientIcon æT Function æFc MIDI.p æD FUNCTION MIDIGetClientIcon(clientID: OSType): Handle; INLINE $203C,$009C,midiToolNum,$A800; æKY Notification.p æKL NMInstall NMRemove NMRec NMRecPtr nmType æKY nmType æT constant æFc Notification.p æD nmType = 8; æKY NMRec æT struct æFc Notification.p æD NMRecPtr = ^NMRec; NMRec = RECORD qLink: QElemPtr; {next queue entry} qType: INTEGER; {queue type -- ORD(nmType) = 8} nmFlags: INTEGER; {reserved} nmPrivate: LONGINT; {reserved} nmReserved: INTEGER; {reserved} nmMark: INTEGER; {item to mark in Apple menu} nmIcon: Handle; {handle to small icon} nmSound: Handle; {handle to sound record} nmStr: StringPtr; {string to appear in alert} nmResp: ProcPtr; {pointer to response routine} nmRefCon: LONGINT; {for application use} END; æKY NMInstall æT Function æFc Notification.p æD FUNCTION NMInstall(nmReqPtr: NMRecPtr): OSErr; INLINE $205F,$A05E,$3E80; æKY NMRemove æT Function æFc Notification.p æD FUNCTION NMRemove(nmReqPtr: NMRecPtr): OSErr; INLINE $205F,$A05F,$3E80; æKY OSEvents.p æKL FlushEvents GetEvQHdr GetOSEvent OSEventAvail PostEvent PPostEvent SetEventMask æKY PostEvent æT Function æFc OSEvents.p æD FUNCTION PostEvent(eventNum: INTEGER;eventMsg: LONGINT): OSErr; æKY PPostEvent æT Function æFc OSEvents.p æD FUNCTION PPostEvent(eventCode: INTEGER;eventMsg: LONGINT;VAR qEl: EvQElPtr): OSErr; æKY OSEventAvail æT Function æFc OSEvents.p æD FUNCTION OSEventAvail(mask: INTEGER;VAR theEvent: EventRecord): BOOLEAN; æKY GetOSEvent æT Function æFc OSEvents.p æD FUNCTION GetOSEvent(mask: INTEGER;VAR theEvent: EventRecord): BOOLEAN; æKY FlushEvents æT Function æFc OSEvents.p æD PROCEDURE FlushEvents(whichMask: INTEGER;stopMask: INTEGER); INLINE $201F,$A032; æKY SetEventMask æT Function æFc OSEvents.p æD PROCEDURE SetEventMask(theMask: INTEGER); INLINE $31DF,$0144; æKY GetEvQHdr æT Function æFc OSEvents.p æD FUNCTION GetEvQHdr: QHdrPtr; INLINE $2EBC,$0000,$014A; æKY OSUtils.p æKL Date2Secs Delay Dequeue DTInstall Enqueue Environs EqualString FlushDataCache FlushInstructionCache GetDateTime GetMMUMode GetOSTrapAddress GetSysPPtr GetTime GetToolboxTrapAddress GetToolTrapAddress GetTrapAddress HandAndHand HandToHand InitUtil KeyTrans NGetTrapAddress NSetTrapAddress PtrAndHand PtrToHand PtrToXHand ReadDateTime RelString Secs2Date SetA5 SetCurrentA5 SetDateTime SetOSTrapAddress SetTime SetToolboxTrapAddress SetToolTrapAddress SetTrapAddress SwapDataCache SwapInstructionCache SwapMMUMode SysBeep SysEnvirons UprString WriteParam AccessParam CntrlParam CopyParam CSParam curSysEnvVers DateTimeRec DeferredTask DrvQEl DrvQElPtr drvQType dtQType dummyType env512KE env68000 env68010 env68020 env68030 env68040 envAExtendKbd envCPUUnknown envExtISOADBKbd envMac envMacAndPad envMachUnknown envMacII envMacIIci envMacIIcx envMacIIfx envMacIIx envMacKbd envMacPlus envMacPlusKbd envPortable envPrtblADBKbd envPrtblISOKbd envSE envSE30 envStandADBKbd envStdISOADBKbd envUnknownKbd envXL EvQEl EvQElPtr evType false32b FIDParam FileParam FInfo ForeignPrivParam fsQType IOParam ioQType MultiDevParam ObjParam OSTrap ParamBlkType ParamBlockRec ParmBlkPtr QElem QHdr QHdrPtr QTypes sIQType SlotDevParam sortsAfter sortsBefore sortsEqual SysEnvRec SysParmType SysPPtr ToolTrap TrapType true32b useAsync useATalk useExtClk useFree useMIDI VBLTask VCB VolumeParam vType WDParam æKY useFree æT constant æFc OSUtils.p æD useFree = 0; æKY useATalk æT constant æFc OSUtils.p æD useATalk = 1; æKY useAsync æT constant æFc OSUtils.p æD useAsync = 2; æKY useExtClk æT constant æFc OSUtils.p æD useExtClk = 3; {Externally clocked} æKY useMIDI æT constant æFc OSUtils.p æD useMIDI = 4; æKY curSysEnvVers æT constant æFc OSUtils.p æD curSysEnvVers = 2; {Updated to equal latest SysEnvirons version} æKY envMac æT constant æFc OSUtils.p æD envMac = -1; æKY envXL æT constant æFc OSUtils.p æD envXL = -2; æKY envMachUnknown æT constant æFc OSUtils.p æD envMachUnknown = 0; æKY env512KE æT constant æFc OSUtils.p æD env512KE = 1; æKY envMacPlus æT constant æFc OSUtils.p æD envMacPlus = 2; æKY envSE æT constant æFc OSUtils.p æD envSE = 3; æKY envMacII æT constant æFc OSUtils.p æD envMacII = 4; æKY envMacIIx æT constant æFc OSUtils.p æD envMacIIx = 5; æKY envMacIIcx æT constant æFc OSUtils.p æD envMacIIcx = 6; æKY envSE30 æT constant æFc OSUtils.p æD envSE30 = 7; æKY envPortable æT constant æFc OSUtils.p æD envPortable = 8; æKY envMacIIci æT constant æFc OSUtils.p æD envMacIIci = 9; æKY envMacIIfx æT constant æFc OSUtils.p æD envMacIIfx = 11; æKY envCPUUnknown æT constant æFc OSUtils.p æD envCPUUnknown = 0; æKY env68000 æT constant æFc OSUtils.p æD env68000 = 1; æKY env68010 æT constant æFc OSUtils.p æD env68010 = 2; æKY env68020 æT constant æFc OSUtils.p æD env68020 = 3; æKY env68030 æT constant æFc OSUtils.p æD env68030 = 4; æKY env68040 æT constant æFc OSUtils.p æD env68040 = 5; æKY envUnknownKbd æT constant æFc OSUtils.p æD envUnknownKbd = 0; æKY envMacKbd æT constant æFc OSUtils.p æD envMacKbd = 1; æKY envMacAndPad æT constant æFc OSUtils.p æD envMacAndPad = 2; æKY envMacPlusKbd æT constant æFc OSUtils.p æD envMacPlusKbd = 3; æKY envAExtendKbd æT constant æFc OSUtils.p æD envAExtendKbd = 4; æKY envStandADBKbd æT constant æFc OSUtils.p æD envStandADBKbd = 5; æKY envPrtblADBKbd æT constant æFc OSUtils.p æD envPrtblADBKbd = 6; æKY envPrtblISOKbd æT constant æFc OSUtils.p æD envPrtblISOKbd = 7; æKY envStdISOADBKbd æT constant æFc OSUtils.p æD envStdISOADBKbd = 8; æKY envExtISOADBKbd æT constant æFc OSUtils.p æD envExtISOADBKbd = 9; æKY false32b æT constant æFc OSUtils.p æD false32b = 0; {24 bit addressing error} æKY true32b æT constant æFc OSUtils.p æD true32b = 1; {32 bit addressing error} æKY sortsBefore æT constant æFc OSUtils.p æD sortsBefore = -1; {first string < second string} æKY sortsEqual æT constant æFc OSUtils.p æD sortsEqual = 0; {first string = second string} æKY sortsAfter æT constant æFc OSUtils.p æD sortsAfter = 1; {first string > second string} æKY QTypes dummyType vType ioQType drvQType evType fsQType sIQType dtQType æT enum æFc OSUtils.p æD QTypes = (dummyType,vType,ioQType,drvQType,evType,fsQType,sIQType,dtQType); æKY TrapType OSTrap ToolTrap æT enum æFc OSUtils.p æD TrapType = (OSTrap,ToolTrap); æKY ParamBlkType IOParam FileParam VolumeParam CntrlParam SlotDevParam MultiDevParam AccessParam ObjParam CopyParam WDParam FIDParam CSParam ForeignPrivParam æT enum æFc OSUtils.p æD ParamBlkType = (IOParam,FileParam,VolumeParam,CntrlParam,SlotDevParam,MultiDevParam, AccessParam,ObjParam,CopyParam,WDParam,FIDParam,CSParam,ForeignPrivParam); æKY SysParmType æT struct æFc OSUtils.p æD SysPPtr = ^SysParmType; SysParmType = PACKED RECORD valid: Byte; aTalkA: Byte; aTalkB: Byte; config: Byte; portA: INTEGER; portB: INTEGER; alarm: LONGINT; font: INTEGER; kbdPrint: INTEGER; volClik: INTEGER; misc: INTEGER; END; æKY FInfo æT struct æFc OSUtils.p æD QElemPtr = ^QElem; FInfo = RECORD fdType: OSType; {the type of the file} fdCreator: OSType; {file's creator} fdFlags: INTEGER; {flags ex. hasbundle,invisible,locked, etc.} fdLocation: Point; {file's location in folder} fdFldr: INTEGER; {folder containing file} END; æKY VCB æT struct æFc OSUtils.p æD VCB = RECORD qLink: QElemPtr; qType: INTEGER; vcbFlags: INTEGER; vcbSigWord: INTEGER; vcbCrDate: LONGINT; vcbLsMod: LONGINT; vcbAtrb: INTEGER; vcbNmFls: INTEGER; vcbVBMSt: INTEGER; vcbAllocPtr: INTEGER; vcbNmAlBlks: INTEGER; vcbAlBlkSiz: LONGINT; vcbClpSiz: LONGINT; vcbAlBlSt: INTEGER; vcbNxtCNID: LONGINT; vcbFreeBks: INTEGER; vcbVN: Str27; vcbDrvNum: INTEGER; vcbDRefNum: INTEGER; vcbFSID: INTEGER; vcbVRefNum: INTEGER; vcbMAdr: Ptr; vcbBufAdr: Ptr; vcbMLen: INTEGER; vcbDirIndex: INTEGER; vcbDirBlk: INTEGER; vcbVolBkUp: LONGINT; vcbVSeqNum: INTEGER; vcbWrCnt: LONGINT; vcbXTClpSiz: LONGINT; vcbCTClpSiz: LONGINT; vcbNmRtDirs: INTEGER; vcbFilCnt: LONGINT; vcbDirCnt: LONGINT; vcbFndrInfo: ARRAY [1..8] OF LONGINT; vcbVCSize: INTEGER; vcbVBMCSiz: INTEGER; vcbCtlCSiz: INTEGER; vcbXTAlBlks: INTEGER; vcbCTAlBlks: INTEGER; vcbXTRef: INTEGER; vcbCTRef: INTEGER; vcbCtlBuf: Ptr; vcbDirIDM: LONGINT; vcbOffsM: INTEGER; END; æKY DrvQEl æT struct æFc OSUtils.p æD DrvQElPtr = ^DrvQEl; DrvQEl = RECORD qLink: QElemPtr; qType: INTEGER; dQDrive: INTEGER; dQRefNum: INTEGER; dQFSID: INTEGER; dQDrvSz: INTEGER; dQDrvSz2: INTEGER; END; æKY ParamBlockRec æT struct æFc OSUtils.p æD ParmBlkPtr = ^ParamBlockRec; ParamBlockRec = RECORD qLink: QElemPtr; qType: INTEGER; ioTrap: INTEGER; ioCmdAddr: Ptr; ioCompletion: ProcPtr; ioResult: OSErr; ioNamePtr: StringPtr; ioVRefNum: INTEGER; CASE ParamBlkType OF IOParam: (ioRefNum: INTEGER; ioVersNum: SignedByte; ioPermssn: SignedByte; ioMisc: Ptr; ioBuffer: Ptr; ioReqCount: LONGINT; ioActCount: LONGINT; ioPosMode: INTEGER; ioPosOffset: LONGINT); FileParam: (ioFRefNum: INTEGER; ioFVersNum: SignedByte; filler1: SignedByte; ioFDirIndex: INTEGER; ioFlAttrib: SignedByte; ioFlVersNum: SignedByte; ioFlFndrInfo: FInfo; ioFlNum: LONGINT; ioFlStBlk: INTEGER; ioFlLgLen: LONGINT; ioFlPyLen: LONGINT; ioFlRStBlk: INTEGER; ioFlRLgLen: LONGINT; ioFlRPyLen: LONGINT; ioFlCrDat: LONGINT; ioFlMdDat: LONGINT); VolumeParam: (filler2: LONGINT; ioVolIndex: INTEGER; ioVCrDate: LONGINT; ioVLsBkUp: LONGINT; ioVAtrb: INTEGER; ioVNmFls: INTEGER; ioVDirSt: INTEGER; ioVBlLn: INTEGER; ioVNmAlBlks: INTEGER; ioVAlBlkSiz: LONGINT; ioVClpSiz: LONGINT; ioAlBlSt: INTEGER; ioVNxtFNum: LONGINT; ioVFrBlk: INTEGER); CntrlParam: (ioCRefNum: INTEGER; csCode: INTEGER; csParam: ARRAY [0..10] OF INTEGER); SlotDevParam: (filler3: LONGINT; ioMix: Ptr; ioFlags: INTEGER; ioSlot: SignedByte; ioID: SignedByte); MultiDevParam: (filler4: LONGINT; ioMMix: Ptr; ioMFlags: INTEGER; ioSEBlkPtr: Ptr); END; æKY EvQEl æT struct æFc OSUtils.p æD EvQElPtr = ^EvQEl; EvQEl = RECORD qLink: QElemPtr; qType: INTEGER; evtQWhat: INTEGER; {this part is identical to the EventRecord as...} evtQMessage: LONGINT; {defined in ToolIntf} evtQWhen: LONGINT; evtQWhere: Point; evtQModifiers: INTEGER; END; æKY æT typedef æFc OSUtils.p æD VBLTask = RECORD qLink: QElemPtr; qType: INTEGER; vblAddr: ProcPtr; vblCount: INTEGER; vblPhase: INTEGER; END; æKY DeferredTask æT struct æFc OSUtils.p æD DeferredTask = RECORD qLink: QElemPtr; {next queue entry} qType: INTEGER; {queue type} dtFlags: INTEGER; {reserved} dtAddr: ProcPtr; {pointer to task} dtParm: LONGINT; {optional parameter} dtReserved: LONGINT; {reserved--should be 0} END; æKY QElem æT struct æFc OSUtils.p æD QElem = RECORD CASE QTypes OF dtQType: (dtQElem: DeferredTask); {deferred} vType: (vblQElem: VBLTask); {vertical blanking} ioQType: (ioQElem: ParamBlockRec); {I/O parameter block} drvQType: (drvQElem: DrvQEl); {drive} evType: (evQElem: EvQEl); {event} fsQType: (vcbQElem: VCB); {volume control block} END; æKY QHdr æT struct æFc OSUtils.p æD QHdrPtr = ^QHdr; QHdr = RECORD qFlags: INTEGER; qHead: QElemPtr; qTail: QElemPtr; END; æKY DateTimeRec æT struct æFc OSUtils.p æD DateTimeRec = RECORD year: INTEGER; month: INTEGER; day: INTEGER; hour: INTEGER; minute: INTEGER; second: INTEGER; dayOfWeek: INTEGER; END; æKY SysEnvRec æT struct æFc OSUtils.p æD SysEnvRec = RECORD environsVersion: INTEGER; machineType: INTEGER; systemVersion: INTEGER; processor: INTEGER; hasFPU: BOOLEAN; hasColorQD: BOOLEAN; keyBoardType: INTEGER; atDrvrVersNum: INTEGER; sysVRefNum: INTEGER; END; æKY GetSysPPtr æT Function æFc OSUtils.p æD FUNCTION GetSysPPtr: SysPPtr; INLINE $2EBC,$0000,$01F8; æKY SysBeep æT Function æFc OSUtils.p æD PROCEDURE SysBeep(duration: INTEGER); INLINE $A9C8; æKY KeyTrans æT Function æFc OSUtils.p æD FUNCTION KeyTrans(transData: Ptr;keycode: INTEGER;VAR state: LONGINT): LONGINT; INLINE $A9C3; æKY DTInstall æT Function æFc OSUtils.p æD FUNCTION DTInstall(dtTaskPtr: QElemPtr): OSErr; æKY GetMMUMode æT Function æFc OSUtils.p æD FUNCTION GetMMUMode: SignedByte; æKY SwapMMUMode æT Function æFc OSUtils.p æD PROCEDURE SwapMMUMode(VAR mode: SignedByte); æKY SysEnvirons æT Function æFc OSUtils.p æD FUNCTION SysEnvirons(versionRequested: INTEGER;VAR theWorld: SysEnvRec): OSErr; æKY ReadDateTime æT Function æFc OSUtils.p æD FUNCTION ReadDateTime(VAR time: LONGINT): OSErr; æKY GetDateTime æT Function æFc OSUtils.p æD PROCEDURE GetDateTime(VAR secs: LONGINT); æKY SetDateTime æT Function æFc OSUtils.p æD FUNCTION SetDateTime(time: LONGINT): OSErr; æKY SetTime æT Function æFc OSUtils.p æD PROCEDURE SetTime(d: DateTimeRec); æKY GetTime æT Function æFc OSUtils.p æD PROCEDURE GetTime(VAR d: DateTimeRec); æKY Date2Secs æT Function æFc OSUtils.p æD PROCEDURE Date2Secs(d: DateTimeRec;VAR secs: LONGINT); æKY Secs2Date æT Function æFc OSUtils.p æD PROCEDURE Secs2Date(secs: LONGINT;VAR d: DateTimeRec); æKY Delay æT Function æFc OSUtils.p æD PROCEDURE Delay(numTicks: LONGINT;VAR finalTicks: LONGINT); æKY GetTrapAddress æT Function æFc OSUtils.p æD FUNCTION GetTrapAddress(trapNum: INTEGER): LONGINT; æKY SetTrapAddress æT Function æFc OSUtils.p æD PROCEDURE SetTrapAddress(trapAddr: LONGINT;trapNum: INTEGER); æKY NGetTrapAddress æT Function æFc OSUtils.p æD FUNCTION NGetTrapAddress(trapNum: INTEGER;tTyp: TrapType): LONGINT; æKY NSetTrapAddress æT Function æFc OSUtils.p æD PROCEDURE NSetTrapAddress(trapAddr: LONGINT;trapNum: INTEGER;tTyp: TrapType); æKY GetOSTrapAddress æT Function æFc OSUtils.p æD FUNCTION GetOSTrapAddress(trapNum: INTEGER): LONGINT; æKY SetOSTrapAddress æT Function æFc OSUtils.p æD PROCEDURE SetOSTrapAddress(trapAddr: LONGINT;trapNum: INTEGER); æKY GetToolTrapAddress æT Function æFc OSUtils.p æD FUNCTION GetToolTrapAddress(trapNum: INTEGER): LONGINT; æKY SetToolTrapAddress æT Function æFc OSUtils.p æD PROCEDURE SetToolTrapAddress(trapAddr: LONGINT;trapNum: INTEGER); æKY GetToolboxTrapAddress æT Function æFc OSUtils.p æD FUNCTION GetToolboxTrapAddress(trapNum: INTEGER): LONGINT; æKY SetToolboxTrapAddress æT Function æFc OSUtils.p æD PROCEDURE SetToolboxTrapAddress(trapAddr: LONGINT;trapNum: INTEGER); æKY WriteParam æT Function æFc OSUtils.p æD FUNCTION WriteParam: OSErr; æKY EqualString æT Function æFc OSUtils.p æD FUNCTION EqualString(str1: Str255;str2: Str255;caseSens: BOOLEAN;diacSens: BOOLEAN): BOOLEAN; æKY UprString æT Function æFc OSUtils.p æD PROCEDURE UprString(VAR theString: Str255;diacSens: BOOLEAN); æKY Enqueue æT Function æFc OSUtils.p æD PROCEDURE Enqueue(qElement: QElemPtr;qHeader: QHdrPtr); æKY Dequeue æT Function æFc OSUtils.p æD FUNCTION Dequeue(qElement: QElemPtr;qHeader: QHdrPtr): OSErr; æKY SetCurrentA5 æT Function æFc OSUtils.p æD FUNCTION SetCurrentA5: LONGINT; INLINE $2E8D,$2A78,$0904; æKY SetA5 æT Function æFc OSUtils.p æD FUNCTION SetA5(newA5: LONGINT): LONGINT; INLINE $2F4D,$0004,$2A5F; æKY Environs æT Function æFc OSUtils.p æD PROCEDURE Environs(VAR rom: INTEGER;VAR machine: INTEGER); æKY RelString æT Function æFc OSUtils.p æD FUNCTION RelString(str1: Str255;str2: Str255;caseSens: BOOLEAN;diacSens: BOOLEAN): INTEGER; æKY HandToHand æT Function æFc OSUtils.p æD FUNCTION HandToHand(VAR theHndl: Handle): OSErr; æKY PtrToXHand æT Function æFc OSUtils.p æD FUNCTION PtrToXHand(srcPtr: Ptr;dstHndl: Handle;size: LONGINT): OSErr; æKY PtrToHand æT Function æFc OSUtils.p æD FUNCTION PtrToHand(srcPtr: Ptr;VAR dstHndl: Handle;size: LONGINT): OSErr; æKY HandAndHand æT Function æFc OSUtils.p æD FUNCTION HandAndHand(hand1: Handle;hand2: Handle): OSErr; æKY PtrAndHand æT Function æFc OSUtils.p æD FUNCTION PtrAndHand(ptr1: Ptr;hand2: Handle;size: LONGINT): OSErr; æKY InitUtil æT Function æFc OSUtils.p æD FUNCTION InitUtil: OSErr; INLINE $A03F,$3E80; æKY SwapInstructionCache æT Function æFc OSUtils.p æD FUNCTION SwapInstructionCache(cacheEnable: BOOLEAN): BOOLEAN; æKY FlushInstructionCache æT Function æFc OSUtils.p æD PROCEDURE FlushInstructionCache; æKY SwapDataCache æT Function æFc OSUtils.p æD FUNCTION SwapDataCache(cacheEnable: BOOLEAN): BOOLEAN; æKY FlushDataCache æT Function æFc OSUtils.p æD PROCEDURE FlushDataCache; æKY Packages.p æKL InitAllPacks InitPack IUClearCache IUCompPString IUCompString IUDatePString IUDateString IUEqualPString IUEqualString IUGetIntl IUGetItlTable IULangOrder IULDateString IULTimeString IUMagIDPString IUMagIDString IUMagPString IUMagString IUMetric IUScriptOrder IUSetIntl IUStringOrder IUTextOrder IUTimePString IUTimeString NumToString StringToNum abbrevDate bdConv century currLeadingZ currNegSym currSymLead currTrailingZ DateForm dayLdingZ dmy dskInit dym editionMgr flPoint hrLeadingZ Intl0Hndl Intl0Ptr Intl0Rec Intl1Hndl Intl1Ptr Intl1Rec intUtil iuCurrentCurLang iuCurrentDefLang iuCurrentScript iuNumberPartsTable iuScriptCurLang iuScriptDefLang iuSystemCurLang iuSystemDefLang iuSystemScript iuUnTokenTable iuWhiteSpaceList iuWordSelectTable iuWordWrapTable listMgr longDate longDay longMonth longWeek longYear maxCountry mdy minCountry minLeadingZ mntLdingZ myd secLeadingZ shortDate stdFile supDay supMonth supWeek supYear trFunc verArabia verArabic verAustralia verBelgiumLux verBritain verChina verCyprus verDenmark verEstonia verFaeroeIsl verFinland verFrance verFrBelgiumLux verFrCanada verFrSwiss verGermany verGreece verGrSwiss verHungary verIceland verIndia verIndiaHindi verIran verIreland verIsrael verItaly verJapan verKorea verLapland verLatvia verLithuania verMalta verNetherlands verNorway verPakistan verPoland verPortugal verRussia verSpain verSweden verTaiwan verThailand verTurkey verUS verYugoCroatian verYugoslavia ydm ymd zeroCycle æKY listMgr æT constant æFc Packages.p æD listMgr = 0; {list manager} æKY dskInit æT constant æFc Packages.p æD dskInit = 2; {Disk Initializaton} æKY stdFile æT constant æFc Packages.p æD stdFile = 3; {Standard File} æKY flPoint æT constant æFc Packages.p æD flPoint = 4; {Floating-Point Arithmetic} æKY trFunc æT constant æFc Packages.p æD trFunc = 5; {Transcendental Functions} æKY intUtil æT constant æFc Packages.p æD intUtil = 6; {International Utilities} æKY bdConv æT constant æFc Packages.p æD bdConv = 7; {Binary/Decimal Conversion} æKY editionMgr æT constant æFc Packages.p æD editionMgr = 11; {Edition Manager} æKY currSymLead æT constant æFc Packages.p æD currSymLead = 16; æKY currNegSym æT constant æFc Packages.p æD currNegSym = 32; æKY currTrailingZ æT constant æFc Packages.p æD currTrailingZ = 64; æKY currLeadingZ æT constant æFc Packages.p æD currLeadingZ = 128; æKY zeroCycle æT constant æFc Packages.p æD zeroCycle = 1; {0:00 AM/PM format} æKY longDay æT constant æFc Packages.p æD longDay = 0; {day of the month} æKY longWeek æT constant æFc Packages.p æD longWeek = 1; {day of the week} æKY longMonth æT constant æFc Packages.p æD longMonth = 2; {month of the year} æKY longYear æT constant æFc Packages.p æD longYear = 3; {year} æKY supDay æT constant æFc Packages.p æD supDay = 1; {suppress day of month} æKY supWeek æT constant æFc Packages.p æD supWeek = 2; {suppress day of week} æKY supMonth æT constant æFc Packages.p æD supMonth = 4; {suppress month} æKY supYear æT constant æFc Packages.p æD supYear = 8; {suppress year} æKY dayLdingZ æT constant æFc Packages.p æD dayLdingZ = 32; æKY mntLdingZ æT constant æFc Packages.p æD mntLdingZ = 64; æKY century æT constant æFc Packages.p æD century = 128; æKY secLeadingZ æT constant æFc Packages.p æD secLeadingZ = 32; æKY minLeadingZ æT constant æFc Packages.p æD minLeadingZ = 64; æKY hrLeadingZ æT constant æFc Packages.p æD hrLeadingZ = 128; æKY mdy æT constant æFc Packages.p æD mdy = 0; æKY dmy æT constant æFc Packages.p æD dmy = 1; æKY ymd æT constant æFc Packages.p æD ymd = 2; æKY myd æT constant æFc Packages.p æD myd = 3; æKY dym æT constant æFc Packages.p æD dym = 4; æKY ydm æT constant æFc Packages.p æD ydm = 5; æKY verUS æT constant æFc Packages.p æD verUS = 0; æKY verFrance æT constant æFc Packages.p æD verFrance = 1; æKY verBritain æT constant æFc Packages.p æD verBritain = 2; æKY verGermany æT constant æFc Packages.p æD verGermany = 3; æKY verItaly æT constant æFc Packages.p æD verItaly = 4; æKY verNetherlands æT constant æFc Packages.p æD verNetherlands = 5; æKY verFrBelgiumLux æT constant æFc Packages.p æD verFrBelgiumLux = 6; { French for Belgium & Luxembourg } æKY verSweden æT constant æFc Packages.p æD verSweden = 7; æKY verSpain æT constant æFc Packages.p æD verSpain = 8; æKY verDenmark æT constant æFc Packages.p æD verDenmark = 9; æKY verPortugal æT constant æFc Packages.p æD verPortugal = 10; æKY verFrCanada æT constant æFc Packages.p æD verFrCanada = 11; æKY verNorway æT constant æFc Packages.p æD verNorway = 12; æKY verIsrael æT constant æFc Packages.p æD verIsrael = 13; æKY verJapan æT constant æFc Packages.p æD verJapan = 14; æKY verAustralia æT constant æFc Packages.p æD verAustralia = 15; æKY verArabic æT constant æFc Packages.p æD verArabic = 16; { synonym for verArabia } æKY verFinland æT constant æFc Packages.p æD verFinland = 17; æKY verFrSwiss æT constant æFc Packages.p æD verFrSwiss = 18; { French Swiss } æKY verGrSwiss æT constant æFc Packages.p æD verGrSwiss = 19; { German Swiss } æKY verGreece æT constant æFc Packages.p æD verGreece = 20; æKY verIceland æT constant æFc Packages.p æD verIceland = 21; æKY verMalta æT constant æFc Packages.p æD verMalta = 22; æKY verCyprus æT constant æFc Packages.p æD verCyprus = 23; æKY verTurkey æT constant æFc Packages.p æD verTurkey = 24; æKY verYugoCroatian æT constant æFc Packages.p æD verYugoCroatian = 25; { Croatian system for Yugoslavia } æKY verIndiaHindi æT constant æFc Packages.p æD verIndiaHindi = 33; { Hindi system for India } æKY verPakistan æT constant æFc Packages.p æD verPakistan = 34; æKY verLithuania æT constant æFc Packages.p æD verLithuania = 41; æKY verPoland æT constant æFc Packages.p æD verPoland = 42; æKY verHungary æT constant æFc Packages.p æD verHungary = 43; æKY verEstonia æT constant æFc Packages.p æD verEstonia = 44; æKY verLatvia æT constant æFc Packages.p æD verLatvia = 45; æKY verLapland æT constant æFc Packages.p æD verLapland = 46; æKY verFaeroeIsl æT constant æFc Packages.p æD verFaeroeIsl = 47; æKY verIran æT constant æFc Packages.p æD verIran = 48; æKY verRussia æT constant æFc Packages.p æD verRussia = 49; æKY verIreland æT constant æFc Packages.p æD verIreland = 50; { English-language version for Ireland } æKY verKorea æT constant æFc Packages.p æD verKorea = 51; æKY verChina æT constant æFc Packages.p æD verChina = 52; æKY verTaiwan æT constant æFc Packages.p æD verTaiwan = 53; æKY verThailand æT constant æFc Packages.p æD verThailand = 54; æKY minCountry æT constant æFc Packages.p æD minCountry = verUS; æKY maxCountry æT constant æFc Packages.p æD maxCountry = verThailand; æKY verBelgiumLux æT constant æFc Packages.p æD verBelgiumLux = 6; {(use verFrBelgiumLux instead, less ambiguous)} æKY verArabia æT constant æFc Packages.p æD verArabia = 16; æKY verYugoslavia æT constant æFc Packages.p æD verYugoslavia = 25; {(use verYugoCroatian instead, less ambiguous)} æKY verIndia æT constant æFc Packages.p æD verIndia = 33; {(use verIndiaHindi instead, less ambiguous) } æKY iuSystemScript æT constant æFc Packages.p æD iuSystemScript = -1; { system script } æKY iuCurrentScript æT constant æFc Packages.p æD iuCurrentScript = -2; { current script } æKY iuSystemCurLang æT constant æFc Packages.p æD iuSystemCurLang = -2; { current (itlbLang) lang for system script } æKY iuSystemDefLang æT constant æFc Packages.p æD iuSystemDefLang = -3; { default (table) lang for system script } æKY iuCurrentCurLang æT constant æFc Packages.p æD iuCurrentCurLang = -4; { current (itlbLang) lang for current script } æKY iuCurrentDefLang æT constant æFc Packages.p æD iuCurrentDefLang = -5; { default lang for current script } æKY iuScriptCurLang æT constant æFc Packages.p æD iuScriptCurLang = -6; { current (itlbLang) lang for specified script } æKY iuScriptDefLang æT constant æFc Packages.p æD iuScriptDefLang = -7; { default language for a specified script } æKY iuWordSelectTable æT constant æFc Packages.p æD iuWordSelectTable = 0; æKY iuWordWrapTable æT constant æFc Packages.p æD iuWordWrapTable = 1; æKY iuNumberPartsTable æT constant æFc Packages.p æD iuNumberPartsTable = 2; æKY iuUnTokenTable æT constant æFc Packages.p æD iuUnTokenTable = 3; æKY iuWhiteSpaceList æT constant æFc Packages.p æD iuWhiteSpaceList = 4; æKY DateForm shortDate longDate abbrevDate æT enum æFc Packages.p æD DateForm = (shortDate,longDate,abbrevDate); æKY Intl0Rec æT struct æFc Packages.p æD Intl0Ptr = ^Intl0Rec; Intl0Hndl = ^Intl0Ptr; Intl0Rec = PACKED RECORD decimalPt: CHAR; {decimal point character} thousSep: CHAR; {thousands separator} listSep: CHAR; {list separator} currSym1: CHAR; {currency symbol} currSym2: CHAR; currSym3: CHAR; currFmt: Byte; {currency format} dateOrder: Byte; {order of short date elements} shrtDateFmt: Byte; {short date format} dateSep: CHAR; {date separator} timeCycle: Byte; {0 if 24-hour cycle, 255 if 12-hour} timeFmt: Byte; {time format} mornStr: PACKED ARRAY [1..4] OF CHAR; {trailing string for first 12-hour cycle} eveStr: PACKED ARRAY [1..4] OF CHAR; {trailing string for last 12-hour cycle} timeSep: CHAR; {time separator} time1Suff: CHAR; {trailing string for 24-hour cycle} time2Suff: CHAR; time3Suff: CHAR; time4Suff: CHAR; time5Suff: CHAR; time6Suff: CHAR; time7Suff: CHAR; time8Suff: CHAR; metricSys: Byte; {255 if metric, 0 if not} intl0Vers: INTEGER; {version information} END; æKY Intl1Rec æT struct æFc Packages.p æD Intl1Ptr = ^Intl1Rec; Intl1Hndl = ^Intl1Ptr; Intl1Rec = PACKED RECORD days: ARRAY [1..7] OF Str15; {day names} months: ARRAY [1..12] OF Str15; {month names} suppressDay: Byte; {0 for day name, 255 for none} lngDateFmt: Byte; {order of long date elements} dayLeading0: Byte; {255 for leading 0 in day number} abbrLen: Byte; {length for abbreviating names} st0: PACKED ARRAY [1..4] OF CHAR; {strings for long date format} st1: PACKED ARRAY [1..4] OF CHAR; st2: PACKED ARRAY [1..4] OF CHAR; st3: PACKED ARRAY [1..4] OF CHAR; st4: PACKED ARRAY [1..4] OF CHAR; intl1Vers: INTEGER; {version information} localRtn: ARRAY [0..0] OF INTEGER; {routine for localizing string comparison} END; æKY InitPack æT Function æFc Packages.p æD PROCEDURE InitPack(packID: INTEGER); INLINE $A9E5; æKY InitAllPacks æT Function æFc Packages.p æD PROCEDURE InitAllPacks; INLINE $A9E6; æKY IUGetIntl æT Function æFc Packages.p æD FUNCTION IUGetIntl(theID: INTEGER): Handle; INLINE $3F3C,$0006,$A9ED; æKY IUSetIntl æT Function æFc Packages.p æD PROCEDURE IUSetIntl(refNum: INTEGER;theID: INTEGER;intlHandle: Handle); INLINE $3F3C,$0008,$A9ED; æKY IUDateString æT Function æFc Packages.p æD PROCEDURE IUDateString(dateTime: LONGINT;longFlag: DateForm;VAR result: Str255); INLINE $4267,$A9ED; æKY IUDatePString æT Function æFc Packages.p æD PROCEDURE IUDatePString(dateTime: LONGINT;longFlag: DateForm;VAR result: Str255; intlHandle: Handle); INLINE $3F3C,$000E,$A9ED; æKY IUTimeString æT Function æFc Packages.p æD PROCEDURE IUTimeString(dateTime: LONGINT;wantSeconds: BOOLEAN;VAR result: Str255); INLINE $3F3C,$0002,$A9ED; æKY IUTimePString æT Function æFc Packages.p æD PROCEDURE IUTimePString(dateTime: LONGINT;wantSeconds: BOOLEAN;VAR result: Str255; intlHandle: Handle); INLINE $3F3C,$0010,$A9ED; æKY IUMetric æT Function æFc Packages.p æD FUNCTION IUMetric: BOOLEAN; INLINE $3F3C,$0004,$A9ED; æKY IUMagString æT Function æFc Packages.p æD FUNCTION IUMagString(aPtr: Ptr;bPtr: Ptr;aLen: INTEGER;bLen: INTEGER): INTEGER; INLINE $3F3C,$000A,$A9ED; æKY IUMagIDString æT Function æFc Packages.p æD FUNCTION IUMagIDString(aPtr: Ptr;bPtr: Ptr;aLen: INTEGER;bLen: INTEGER): INTEGER; INLINE $3F3C,$000C,$A9ED; æKY IUCompString æT Function æFc Packages.p æD FUNCTION IUCompString(aStr: Str255;bStr: Str255): INTEGER; æKY IUEqualString æT Function æFc Packages.p æD FUNCTION IUEqualString(aStr: Str255;bStr: Str255): INTEGER; æKY StringToNum æT Function æFc Packages.p æD PROCEDURE StringToNum(theString: Str255;VAR theNum: LONGINT); æKY NumToString æT Function æFc Packages.p æD PROCEDURE NumToString(theNum: LONGINT;VAR theString: Str255); æKY IULDateString æT Function æFc Packages.p æD PROCEDURE IULDateString(VAR dateTime: LongDateTime;longFlag: DateForm;VAR result: Str255; intlHandle: Handle); INLINE $3F3C,$0014,$A9ED; æKY IULTimeString æT Function æFc Packages.p æD PROCEDURE IULTimeString(VAR dateTime: LongDateTime;wantSeconds: BOOLEAN; VAR result: Str255;intlHandle: Handle); INLINE $3F3C,$0016,$A9ED; æKY IUClearCache æT Function æFc Packages.p æD PROCEDURE IUClearCache; INLINE $3F3C,$0018,$A9ED; æKY IUMagPString æT Function æFc Packages.p æD FUNCTION IUMagPString(aPtr: Ptr;bPtr: Ptr;aLen: INTEGER;bLen: INTEGER;itl2Handle: Handle): INTEGER; INLINE $3F3C,$001A,$A9ED; æKY IUMagIDPString æT Function æFc Packages.p æD FUNCTION IUMagIDPString(aPtr: Ptr;bPtr: Ptr;aLen: INTEGER;bLen: INTEGER; itl2Handle: Handle): INTEGER; INLINE $3F3C,$001C,$A9ED; æKY IUCompPString æT Function æFc Packages.p æD FUNCTION IUCompPString(aStr: Str255;bStr: Str255;itl2Handle: Handle): INTEGER; æKY IUEqualPString æT Function æFc Packages.p æD FUNCTION IUEqualPString(aStr: Str255;bStr: Str255;itl2Handle: Handle): INTEGER; æKY IUScriptOrder æT Function æFc Packages.p æD FUNCTION IUScriptOrder(script1: ScriptCode;script2: ScriptCode): INTEGER; INLINE $3F3C,$001E,$A9ED; æKY IULangOrder æT Function æFc Packages.p æD FUNCTION IULangOrder(language1: LangCode;language2: LangCode): INTEGER; INLINE $3F3C,$0020,$A9ED; æKY IUTextOrder æT Function æFc Packages.p æD FUNCTION IUTextOrder(aPtr: Ptr;bPtr: Ptr;aLen: INTEGER;bLen: INTEGER;aScript: ScriptCode; bScript: ScriptCode;aLang: LangCode;bLang: LangCode): INTEGER; INLINE $3F3C,$0022,$A9ED; æKY IUStringOrder æT Function æFc Packages.p æD FUNCTION IUStringOrder(aStr: Str255;bStr: Str255;aScript: ScriptCode;bScript: ScriptCode; aLang: LangCode;bLang: LangCode): INTEGER; æKY IUGetItlTable æT Function æFc Packages.p æD PROCEDURE IUGetItlTable(script: ScriptCode;tableCode: INTEGER;VAR itlHandle: Handle; VAR offset: LONGINT;VAR length: LONGINT); INLINE $3F3C,$0024,$A9ED; æKY Palettes.p æKL ActivatePalette AnimateEntry AnimatePalette CopyPalette CTab2Palette DisposePalette Entry2Index GetEntryColor GetEntryUsage GetGray GetNewPalette GetPalette GetPaletteUpdates HasDepth InitPalettes NewPalette NSetPalette Palette2CTab PmBackColor PmForeColor PMgrVersion ResizePalette RestoreBack RestoreDeviceClut RestoreFore SaveBack SaveFore SetDepth SetEntryColor SetEntryUsage SetPalette SetPaletteUpdates ColorInfo Palette PaletteHandle PalettePtr pmAllUpdates pmAnimated pmBkUpdates pmBlack pmCourteous pmExplicit pmFgUpdates pmInhibitC2 pmInhibitC4 pmInhibitC8 pmInhibitG2 pmInhibitG4 pmInhibitG8 pmNoUpdates pmTolerant pmWhite æKY pmCourteous æT constant æFc Palettes.p æD pmCourteous = 0; {Record use of color on each device touched.} æKY pmTolerant æT constant æFc Palettes.p æD pmTolerant = $0002; {render ciRGB if ciTolerance is exceeded by best match.} æKY pmAnimated æT constant æFc Palettes.p æD pmAnimated = $0004; {reserve an index on each device touched and render ciRGB.} æKY pmExplicit æT constant æFc Palettes.p æD pmExplicit = $0008; {no reserve, no render, no record; stuff index into port.} æKY pmWhite æT constant æFc Palettes.p æD pmWhite = $0010; æKY pmBlack æT constant æFc Palettes.p æD pmBlack = $0020; æKY pmInhibitG2 æT constant æFc Palettes.p æD pmInhibitG2 = $0100; æKY pmInhibitC2 æT constant æFc Palettes.p æD pmInhibitC2 = $0200; æKY pmInhibitG4 æT constant æFc Palettes.p æD pmInhibitG4 = $0400; æKY pmInhibitC4 æT constant æFc Palettes.p æD pmInhibitC4 = $0800; æKY pmInhibitG8 æT constant æFc Palettes.p æD pmInhibitG8 = $1000; æKY pmInhibitC8 æT constant æFc Palettes.p æD pmInhibitC8 = $2000; æKY pmNoUpdates æT constant æFc Palettes.p æD pmNoUpdates = $8000; {no updates} æKY pmBkUpdates æT constant æFc Palettes.p æD pmBkUpdates = $A000; {background updates only} æKY pmFgUpdates æT constant æFc Palettes.p æD pmFgUpdates = $C000; {foreground updates only} æKY pmAllUpdates æT constant æFc Palettes.p æD pmAllUpdates = $E000; {all updates} æKY ColorInfo æT struct æFc Palettes.p æD ColorInfo = RECORD ciRGB: RGBColor; {true RGB values} ciUsage: INTEGER; {color usage} ciTolerance: INTEGER; {tolerance value} ciDataFields: ARRAY [0..2] OF INTEGER; {private fields} END; æKY Palette æT struct æFc Palettes.p æD PalettePtr = ^Palette; PaletteHandle = ^PalettePtr; Palette = RECORD pmEntries: INTEGER; {entries in pmTable} pmDataFields: ARRAY [0..6] OF INTEGER; {private fields} pmInfo: ARRAY [0..0] OF ColorInfo; END; æKY InitPalettes æT Function æFc Palettes.p æD PROCEDURE InitPalettes; INLINE $AA90; æKY NewPalette æT Function æFc Palettes.p æD FUNCTION NewPalette(entries: INTEGER;srcColors: CTabHandle;srcUsage: INTEGER; srcTolerance: INTEGER): PaletteHandle; INLINE $AA91; æKY GetNewPalette æT Function æFc Palettes.p æD FUNCTION GetNewPalette(PaletteID: INTEGER): PaletteHandle; INLINE $AA92; æKY DisposePalette æT Function æFc Palettes.p æD PROCEDURE DisposePalette(srcPalette: PaletteHandle); INLINE $AA93; æKY ActivatePalette æT Function æFc Palettes.p æD PROCEDURE ActivatePalette(srcWindow: WindowPtr); INLINE $AA94; æKY SetPalette æT Function æFc Palettes.p æD PROCEDURE SetPalette(dstWindow: WindowPtr;srcPalette: PaletteHandle;cUpdates: BOOLEAN); INLINE $AA95; æKY NSetPalette æT Function æFc Palettes.p æD PROCEDURE NSetPalette(dstWindow: WindowPtr;srcPalette: PaletteHandle;nCUpdates: INTEGER); INLINE $AA95; æKY GetPalette æT Function æFc Palettes.p æD FUNCTION GetPalette(srcWindow: WindowPtr): PaletteHandle; INLINE $AA96; æKY CopyPalette æT Function æFc Palettes.p æD PROCEDURE CopyPalette(srcPalette: PaletteHandle;dstPalette: PaletteHandle; srcEntry: INTEGER;dstEntry: INTEGER;dstLength: INTEGER); INLINE $AAA1; æKY PmForeColor æT Function æFc Palettes.p æD PROCEDURE PmForeColor(dstEntry: INTEGER); INLINE $AA97; æKY PmBackColor æT Function æFc Palettes.p æD PROCEDURE PmBackColor(dstEntry: INTEGER); INLINE $AA98; æKY AnimateEntry æT Function æFc Palettes.p æD PROCEDURE AnimateEntry(dstWindow: WindowPtr;dstEntry: INTEGER;srcRGB: RGBColor); INLINE $AA99; æKY AnimatePalette æT Function æFc Palettes.p æD PROCEDURE AnimatePalette(dstWindow: WindowPtr;srcCTab: CTabHandle;srcIndex: INTEGER; dstEntry: INTEGER;dstLength: INTEGER); INLINE $AA9A; æKY GetEntryColor æT Function æFc Palettes.p æD PROCEDURE GetEntryColor(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstRGB: RGBColor); INLINE $AA9B; æKY SetEntryColor æT Function æFc Palettes.p æD PROCEDURE SetEntryColor(dstPalette: PaletteHandle;dstEntry: INTEGER;srcRGB: RGBColor); INLINE $AA9C; æKY GetEntryUsage æT Function æFc Palettes.p æD PROCEDURE GetEntryUsage(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstUsage: INTEGER; VAR dstTolerance: INTEGER); INLINE $AA9D; æKY SetEntryUsage æT Function æFc Palettes.p æD PROCEDURE SetEntryUsage(dstPalette: PaletteHandle;dstEntry: INTEGER;srcUsage: INTEGER; srcTolerance: INTEGER); INLINE $AA9E; æKY CTab2Palette æT Function æFc Palettes.p æD PROCEDURE CTab2Palette(srcCTab: CTabHandle;dstPalette: PaletteHandle;srcUsage: INTEGER; srcTolerance: INTEGER); INLINE $AA9F; æKY Palette2CTab æT Function æFc Palettes.p æD PROCEDURE Palette2CTab(srcPalette: PaletteHandle;dstCTab: CTabHandle); INLINE $AAA0; æKY Entry2Index æT Function æFc Palettes.p æD FUNCTION Entry2Index(entry: INTEGER): LONGINT; INLINE $7000,$AAA2; æKY RestoreDeviceClut æT Function æFc Palettes.p æD PROCEDURE RestoreDeviceClut(gd: GDHandle); INLINE $7002,$AAA2; æKY ResizePalette æT Function æFc Palettes.p æD PROCEDURE ResizePalette(p: PaletteHandle;size: INTEGER); INLINE $7003,$AAA2; æKY SaveFore æT Function æFc Palettes.p æD PROCEDURE SaveFore(VAR c: ColorSpec); INLINE $303C,$040D,$AAA2; æKY SaveBack æT Function æFc Palettes.p æD PROCEDURE SaveBack(VAR c: ColorSpec); INLINE $303C,$040E,$AAA2; æKY RestoreFore æT Function æFc Palettes.p æD PROCEDURE RestoreFore(c: ColorSpec); INLINE $303C,$040F,$AAA2; æKY RestoreBack æT Function æFc Palettes.p æD PROCEDURE RestoreBack(c: ColorSpec); INLINE $303C,$0410,$AAA2; æKY SetDepth æT Function æFc Palettes.p æD FUNCTION SetDepth(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): OSErr; INLINE $303C,$0A13,$AAA2; æKY HasDepth æT Function æFc Palettes.p æD FUNCTION HasDepth(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): INTEGER; INLINE $303C,$0A14,$AAA2; æKY PMgrVersion æT Function æFc Palettes.p æD FUNCTION PMgrVersion: INTEGER; INLINE $7015,$AAA2; æKY SetPaletteUpdates æT Function æFc Palettes.p æD PROCEDURE SetPaletteUpdates(p: PaletteHandle;updates: INTEGER); INLINE $303C,$0616,$AAA2; æKY GetPaletteUpdates æT Function æFc Palettes.p æD FUNCTION GetPaletteUpdates(p: PaletteHandle): INTEGER; INLINE $303C,$0417,$AAA2; æKY GetGray æT Function æFc Palettes.p æD FUNCTION GetGray(device: GDHandle;backGround: RGBColor;VAR foreGround: RGBColor): BOOLEAN; INLINE $303C,$1219,$AAA2; æKY Power.p æKL AOff AOn AOnIgnoreModem BatteryStatus BOff BOn DisableIdle DisableWUTime EnableIdle GetCPUSpeed GetWUTime IdleUpdate ModemStatus SetWUTime SleepQInstall SleepQRemove BatteryByte batteryDeadBit batteryDeadMask batteryLowBit batteryLowMask chargeOverFlowBit chargeOverFlowMask chargerConnBit chargerConnMask connChangedBit connChangedMask hiChargeBit hiChargeMask ModemByte modemInstalledBit modemInstalledMask modemOnBit modemOnHookBit modemOnHookMask modemOnMask noCalls noRequest PMResultCode ringDetectBit ringDetectMask ringWakeUpBit ringWakeUpMask sleepDemand SleepQRec SleepQRecPtr sleepRequest sleepRevoke sleepWakeUp slpQType æKY modemOnBit æT constant æFc Power.p æD modemOnBit = 0; æKY ringWakeUpBit æT constant æFc Power.p æD ringWakeUpBit = 2; æKY modemInstalledBit æT constant æFc Power.p æD modemInstalledBit = 3; æKY ringDetectBit æT constant æFc Power.p æD ringDetectBit = 4; æKY modemOnHookBit æT constant æFc Power.p æD modemOnHookBit = 5; æKY modemOnMask æT constant æFc Power.p æD modemOnMask = $1; æKY ringWakeUpMask æT constant æFc Power.p æD ringWakeUpMask = $4; æKY modemInstalledMask æT constant æFc Power.p æD modemInstalledMask = $8; æKY ringDetectMask æT constant æFc Power.p æD ringDetectMask = $10; æKY modemOnHookMask æT constant æFc Power.p æD modemOnHookMask = $20; æKY chargerConnBit æT constant æFc Power.p æD chargerConnBit = 0; æKY hiChargeBit æT constant æFc Power.p æD hiChargeBit = 1; æKY chargeOverFlowBit æT constant æFc Power.p æD chargeOverFlowBit = 2; æKY batteryDeadBit æT constant æFc Power.p æD batteryDeadBit = 3; æKY batteryLowBit æT constant æFc Power.p æD batteryLowBit = 4; æKY connChangedBit æT constant æFc Power.p æD connChangedBit = 5; æKY chargerConnMask æT constant æFc Power.p æD chargerConnMask = $1; æKY hiChargeMask æT constant æFc Power.p æD hiChargeMask = $2; æKY chargeOverFlowMask æT constant æFc Power.p æD chargeOverFlowMask = $4; æKY batteryDeadMask æT constant æFc Power.p æD batteryDeadMask = $8; æKY batteryLowMask æT constant æFc Power.p æD batteryLowMask = $10; æKY connChangedMask æT constant æFc Power.p æD connChangedMask = $20; æKY sleepRequest æT constant æFc Power.p æD sleepRequest = 1; æKY sleepDemand æT constant æFc Power.p æD sleepDemand = 2; æKY sleepWakeUp æT constant æFc Power.p æD sleepWakeUp = 3; æKY sleepRevoke æT constant æFc Power.p æD sleepRevoke = 4; æKY noCalls æT constant æFc Power.p æD noCalls = 1; æKY noRequest æT constant æFc Power.p æD noRequest = 2; æKY slpQType æT constant æFc Power.p æD slpQType = 16; æKY ModemByte æT typedef æFc Power.p æD ModemByte = Byte; æKY BatteryByte æT typedef æFc Power.p æD BatteryByte = Byte; æKY PMResultCode æT typedef æFc Power.p æD PMResultCode = LONGINT; æKY SleepQRec æT struct æFc Power.p æD SleepQRecPtr = ^SleepQRec; SleepQRec = RECORD sleepQLink: SleepQRecPtr; sleepQType: INTEGER; {type = 16} sleepQProc: ProcPtr; {Pointer to sleep routine} sleepQFlags: INTEGER; END; æKY DisableWUTime æT Function æFc Power.p æD FUNCTION DisableWUTime: OSErr; æKY GetWUTime æT Function æFc Power.p æD FUNCTION GetWUTime(VAR WUTime: LONGINT;VAR WUFlag: Byte): OSErr; æKY SetWUTime æT Function æFc Power.p æD FUNCTION SetWUTime(WUTime: LONGINT): OSErr; æKY BatteryStatus æT Function æFc Power.p æD FUNCTION BatteryStatus(VAR Status: Byte;VAR Power: Byte): OSErr; æKY ModemStatus æT Function æFc Power.p æD FUNCTION ModemStatus(VAR Status: Byte): OSErr; æKY IdleUpdate æT Function æFc Power.p æD FUNCTION IdleUpdate: LONGINT; INLINE $A285,$2E80; æKY GetCPUSpeed æT Function æFc Power.p æD FUNCTION GetCPUSpeed: LONGINT; INLINE $70FF,$A485,$2E80; æKY EnableIdle æT Function æFc Power.p æD PROCEDURE EnableIdle; INLINE $7000,$A485; æKY DisableIdle æT Function æFc Power.p æD PROCEDURE DisableIdle; INLINE $7001,$A485; æKY SleepQInstall æT Function æFc Power.p æD PROCEDURE SleepQInstall(qRecPtr: SleepQRecPtr); INLINE $205F,$A28A; æKY SleepQRemove æT Function æFc Power.p æD PROCEDURE SleepQRemove(qRecPtr: SleepQRecPtr); INLINE $205F,$A48A; æKY AOn æT Function æFc Power.p æD PROCEDURE AOn; INLINE $7004,$A685; æKY AOnIgnoreModem æT Function æFc Power.p æD PROCEDURE AOnIgnoreModem; INLINE $7005,$A685; æKY BOn æT Function æFc Power.p æD PROCEDURE BOn; INLINE $7000,$A685; æKY AOff æT Function æFc Power.p æD PROCEDURE AOff; INLINE $7084,$A685; æKY BOff æT Function æFc Power.p æD PROCEDURE BOff; INLINE $7080,$A685; æKY PPCToolbox.p æKL DeleteUserIdentity GetDefaultUser IPCListPorts IPCListPortsAsync IPCListPortsSync PPCAccept PPCAcceptAsync PPCAcceptSync PPCBrowser PPCClose PPCCloseAsync PPCCloseSync PPCEnd PPCEndAsync PPCEndSync PPCInform PPCInformAsync PPCInformSync PPCInit PPCOpen PPCOpenAsync PPCOpenSync PPCRead PPCReadAsync PPCReadSync PPCReject PPCRejectAsync PPCRejectSync PPCStart PPCStartAsync PPCStartSync PPCWrite PPCWriteAsync PPCWriteSync StartSecureSession IPCListPortsPBPtr IPCListPortsPBRec LocationNamePtr LocationNameRec PortInfoArray PortInfoArrayPtr PortInfoPtr PortInfoRec PPCAcceptPBPtr PPCAcceptPBRec ppcByCreatorAndType ppcByString PPCClosePBPtr PPCClosePBRec PPCCompProcPtr PPCEndPBPtr PPCEndPBRec PPCFilterProcPtr PPCInformPBPtr PPCInformPBRec ppcLocalOrigin PPCLocationKind ppcNBPLocation ppcNBPTypeLocation ppcNoLocation PPCOpenPBPtr PPCOpenPBRec PPCParamBlockPtr PPCParamBlockRec PPCPortKinds PPCPortPtr PPCPortRec PPCPortRefNum PPCReadPBPtr PPCReadPBRec PPCRejectPBPtr PPCRejectPBRec ppcRemoteOrigin ppcServiceRealTime PPCServiceType PPCSessionOrigin PPCSessRefNum PPCStartPBPtr PPCStartPBRec PPCWritePBPtr PPCWritePBRec æKY PPCServiceType æT typedef æFc PPCToolbox.p æD PPCServiceType = SignedByte; æKY ppcServiceRealTime æT constant æFc PPCToolbox.p æD ppcServiceRealTime = 1; æKY PPCLocationKind æT typedef æFc PPCToolbox.p æD PPCLocationKind = INTEGER; æKY ppcNoLocation æT constant æFc PPCToolbox.p æD ppcNoLocation = 0; { There is no PPCLocName } æKY ppcNBPLocation æT constant æFc PPCToolbox.p æD ppcNBPLocation = 1; { Use AppleTalk NBP } æKY ppcNBPTypeLocation æT constant æFc PPCToolbox.p æD ppcNBPTypeLocation = 2; { Used for specifying a location name type during PPCOpen only } æKY PPCPortKinds æT typedef æFc PPCToolbox.p æD PPCPortKinds = INTEGER; æKY ppcByCreatorAndType æT constant æFc PPCToolbox.p æD ppcByCreatorAndType = 1; { PortType is specified as colloquial Mac creator and type } æKY ppcByString æT constant æFc PPCToolbox.p æD ppcByString = 2; { Port Type is in pascal string format } æKY PPCSessionOrigin æT typedef æFc PPCToolbox.p æD PPCSessionOrigin = SignedByte; { Values returned for request field in PPCInform call } æKY ppcLocalOrigin æT constant æFc PPCToolbox.p æD ppcLocalOrigin = 1; { session originated from this machine } æKY ppcRemoteOrigin æT constant æFc PPCToolbox.p æD ppcRemoteOrigin = 2; { session originated from remote machine } æKY PPCPortRefNum æT typedef æFc PPCToolbox.p æD PPCPortRefNum = INTEGER; æKY PPCSessRefNum æT typedef æFc PPCToolbox.p æD PPCSessRefNum = LONGINT; æKY PPCPortRec æT struct æFc PPCToolbox.p æD PPCPortPtr = ^PPCPortRec; PPCPortRec = RECORD nameScript: ScriptCode; { script of name } name: Str32; { name of port as seen in browser } portKindSelector: PPCPortKinds; { which variant } CASE PPCPortKinds OF ppcByString: (portTypeStr: Str32); ppcByCreatorAndType: (portCreator: OSType; portType: OSType); END; æKY LocationNameRec æT struct æFc PPCToolbox.p æD LocationNamePtr = ^LocationNameRec; LocationNameRec = RECORD locationKindSelector: PPCLocationKind; { which variant } CASE PPCLocationKind OF ppcNBPLocation: (nbpEntity: EntityName); { NBP name entity } ppcNBPTypeLocation: (nbpType: Str32); { just the NBP type string, for PPCOpen } END; æKY PortInfoRec æT struct æFc PPCToolbox.p æD PortInfoPtr = ^PortInfoRec; PortInfoRec = RECORD filler1: SignedByte; authRequired: BOOLEAN; name: PPCPortRec; END; æKY PortInfoArrayPtr æT typedef æFc PPCToolbox.p æD PortInfoArrayPtr = ^PortInfoArray; æKY PortInfoArray æT typedef æFc PPCToolbox.p æD PortInfoArray = ARRAY [0..0] OF PortInfoRec; æKY PPCFilterProcPtr æT typedef æFc PPCToolbox.p æD PPCFilterProcPtr = ProcPtr; æKY PPCCompProcPtr æT typedef æFc PPCToolbox.p æD PPCCompProcPtr = ProcPtr; æKY PPCOpenPBRec æT struct æFc PPCToolbox.p æD PPCOpenPBPtr = ^PPCOpenPBRec; PPCOpenPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; { reserved } portRefNum: PPCPortRefNum; { Port Reference } filler1: LONGINT; serviceType: PPCServiceType; resFlag: SignedByte ; portName: PPCPortPtr; { PortName for PPC } locationName: LocationNamePtr; networkVisible: BOOLEAN; nbpRegistered: BOOLEAN; END; æKY PPCInformPBRec æT struct æFc PPCToolbox.p æD PPCInformPBPtr = ^PPCInformPBRec; PPCInformPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; portRefNum: PPCPortRefNum; sessRefNum: PPCSessRefNum; serviceType: PPCServiceType; autoAccept: BOOLEAN; portName: PPCPortPtr; locationName: LocationNamePtr; userName: StringPtr; userData: LONGINT; requestType: PPCSessionOrigin; END; æKY PPCStartPBRec æT struct æFc PPCToolbox.p æD PPCStartPBPtr = ^PPCStartPBRec; PPCStartPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; portRefNum: PPCPortRefNum; sessRefNum: PPCSessRefNum; serviceType: PPCServiceType; resFlag: SignedByte; portName: PPCPortPtr; locationName: LocationNamePtr; rejectInfo: LONGINT; userData: LONGINT; userRefNum: LONGINT; END; æKY PPCAcceptPBRec æT struct æFc PPCToolbox.p æD PPCAcceptPBPtr = ^PPCAcceptPBRec; PPCAcceptPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; filler1: INTEGER; sessRefNum: PPCSessRefNum; END; æKY PPCRejectPBRec æT struct æFc PPCToolbox.p æD PPCRejectPBPtr = ^PPCRejectPBRec; PPCRejectPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; filler1: INTEGER; sessRefNum: PPCSessRefNum; filler2: INTEGER; filler3: LONGINT; filler4: LONGINT; rejectInfo: LONGINT; END; æKY PPCWritePBRec æT struct æFc PPCToolbox.p æD PPCWritePBPtr = ^PPCWritePBRec; PPCWritePBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; filler1: INTEGER; sessRefNum: PPCSessRefNum; bufferLength: Size; actualLength: Size; bufferPtr: Ptr; more: BOOLEAN; filler2: SignedByte; userData: LONGINT; blockCreator: OSType; blockType: OSType; END; æKY PPCReadPBRec æT struct æFc PPCToolbox.p æD PPCReadPBPtr = ^PPCReadPBRec; PPCReadPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; filler1: INTEGER; sessRefNum: PPCSessRefNum; bufferLength: Size; actualLength: Size; bufferPtr: Ptr; more: BOOLEAN; filler2: SignedByte; userData: LONGINT; blockCreator: OSType; blockType: OSType; END; æKY PPCEndPBRec æT struct æFc PPCToolbox.p æD PPCEndPBPtr = ^PPCEndPBRec; PPCEndPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; filler1: INTEGER; sessRefNum: PPCSessRefNum; END; æKY PPCClosePBRec æT struct æFc PPCToolbox.p æD PPCClosePBPtr = ^PPCClosePBRec; PPCClosePBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; portRefNum: PPCPortRefNum; END; æKY IPCListPortsPBRec æT struct æFc PPCToolbox.p æD IPCListPortsPBPtr = ^IPCListPortsPBRec; IPCListPortsPBRec = RECORD qLink: Ptr; csCode: INTEGER; intUse: INTEGER; intUsePtr: Ptr; ioCompletion: PPCCompProcPtr; ioResult: OSErr; reserved: ARRAY [1..5] OF LONGINT; filler1: INTEGER; startIndex: INTEGER; requestCount: INTEGER; actualCount: INTEGER; portName: PPCPortPtr; locationName: LocationNamePtr; bufferPtr: PortInfoArrayPtr; END; æKY PPCParamBlockRec æT union æFc PPCToolbox.p æD PPCParamBlockPtr = ^PPCParamBlockRec; PPCParamBlockRec = RECORD CASE Integer OF 0: (openParam: PPCOpenPBRec); 1: (informParam: PPCInformPBRec); 2: (startParam: PPCStartPBRec); 3: (acceptParam: PPCAcceptPBRec); 4: (rejectParam: PPCRejectPBRec); 5: (writeParam: PPCWritePBRec); 6: (readParam: PPCReadPBRec); 7: (endParam: PPCEndPBRec); 8: (closeParam: PPCClosePBRec); 9: (listPortsParam: IPCListPortsPBRec); END; æKY PPCInit æT Function æFc PPCToolbox.p æD FUNCTION PPCInit: OSErr; INLINE $7000,$A0DD,$3E80; æKY PPCOpen æT Function æFc PPCToolbox.p æD FUNCTION PPCOpen(pb: PPCOpenPBPtr;async: BOOLEAN): OSErr; æKY PPCOpenSync æT Function æFc PPCToolbox.p æD FUNCTION PPCOpenSync(pb: PPCOpenPBPtr): OSErr; INLINE $205F,$7001,$A0DD,$3E80; æKY PPCOpenAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCOpenAsync(pb: PPCOpenPBPtr): OSErr; INLINE $205F,$7001,$A4DD,$3E80; æKY PPCInform æT Function æFc PPCToolbox.p æD FUNCTION PPCInform(pb: PPCInformPBPtr;async: BOOLEAN): OSErr; æKY PPCInformSync æT Function æFc PPCToolbox.p æD FUNCTION PPCInformSync(pb: PPCInformPBPtr): OSErr; INLINE $205F,$7003,$A0DD,$3E80; æKY PPCInformAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCInformAsync(pb: PPCInformPBPtr): OSErr; INLINE $205F,$7003,$A4DD,$3E80; æKY PPCStart æT Function æFc PPCToolbox.p æD FUNCTION PPCStart(pb: PPCStartPBPtr;async: BOOLEAN): OSErr; æKY PPCStartSync æT Function æFc PPCToolbox.p æD FUNCTION PPCStartSync(pb: PPCStartPBPtr): OSErr; INLINE $205F,$7002,$A0DD,$3E80; æKY PPCStartAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCStartAsync(pb: PPCStartPBPtr): OSErr; INLINE $205F,$7002,$A4DD,$3E80; æKY PPCAccept æT Function æFc PPCToolbox.p æD FUNCTION PPCAccept(pb: PPCAcceptPBPtr;async: BOOLEAN): OSErr; æKY PPCAcceptSync æT Function æFc PPCToolbox.p æD FUNCTION PPCAcceptSync(pb: PPCAcceptPBPtr): OSErr; INLINE $205F,$7004,$A0DD,$3E80; æKY PPCAcceptAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCAcceptAsync(pb: PPCAcceptPBPtr): OSErr; INLINE $205F,$7004,$A4DD,$3E80; æKY PPCReject æT Function æFc PPCToolbox.p æD FUNCTION PPCReject(pb: PPCRejectPBPtr;async: BOOLEAN): OSErr; æKY PPCRejectSync æT Function æFc PPCToolbox.p æD FUNCTION PPCRejectSync(pb: PPCRejectPBPtr): OSErr; INLINE $205F,$7005,$A0DD,$3E80; æKY PPCRejectAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCRejectAsync(pb: PPCRejectPBPtr): OSErr; INLINE $205F,$7005,$A4DD,$3E80; æKY PPCWrite æT Function æFc PPCToolbox.p æD FUNCTION PPCWrite(pb: PPCWritePBPtr;async: BOOLEAN): OSErr; æKY PPCWriteSync æT Function æFc PPCToolbox.p æD FUNCTION PPCWriteSync(pb: PPCWritePBPtr): OSErr; INLINE $205F,$7006,$A0DD,$3E80; æKY PPCWriteAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCWriteAsync(pb: PPCWritePBPtr): OSErr; INLINE $205F,$7006,$A4DD,$3E80; æKY PPCRead æT Function æFc PPCToolbox.p æD FUNCTION PPCRead(pb: PPCReadPBPtr;async: BOOLEAN): OSErr; æKY PPCReadSync æT Function æFc PPCToolbox.p æD FUNCTION PPCReadSync(pb: PPCReadPBPtr): OSErr; INLINE $205F,$7007,$A0DD,$3E80; æKY PPCReadAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCReadAsync(pb: PPCReadPBPtr): OSErr; INLINE $205F,$7007,$A4DD,$3E80; æKY PPCEnd æT Function æFc PPCToolbox.p æD FUNCTION PPCEnd(pb: PPCEndPBPtr;async: BOOLEAN): OSErr; æKY PPCEndSync æT Function æFc PPCToolbox.p æD FUNCTION PPCEndSync(pb: PPCEndPBPtr): OSErr; INLINE $205F,$7008,$A0DD,$3E80; æKY PPCEndAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCEndAsync(pb: PPCEndPBPtr): OSErr; INLINE $205F,$7008,$A4DD,$3E80; æKY PPCClose æT Function æFc PPCToolbox.p æD FUNCTION PPCClose(pb: PPCClosePBPtr;async: BOOLEAN): OSErr; æKY PPCCloseSync æT Function æFc PPCToolbox.p æD FUNCTION PPCCloseSync(pb: PPCClosePBPtr): OSErr; INLINE $205F,$7009,$A0DD,$3E80; æKY PPCCloseAsync æT Function æFc PPCToolbox.p æD FUNCTION PPCCloseAsync(pb: PPCClosePBPtr): OSErr; INLINE $205F,$7009,$A4DD,$3E80; æKY IPCListPorts æT Function æFc PPCToolbox.p æD FUNCTION IPCListPorts(pb: IPCListPortsPBPtr;async: BOOLEAN): OSErr; æKY IPCListPortsSync æT Function æFc PPCToolbox.p æD FUNCTION IPCListPortsSync(pb: IPCListPortsPBPtr): OSErr; INLINE $205F,$700A,$A0DD,$3E80; æKY IPCListPortsAsync æT Function æFc PPCToolbox.p æD FUNCTION IPCListPortsAsync(pb: IPCListPortsPBPtr): OSErr; INLINE $205F,$700A,$A4DD,$3E80; æKY DeleteUserIdentity æT Function æFc PPCToolbox.p æD FUNCTION DeleteUserIdentity(userRef: LONGINT): OSErr; æKY GetDefaultUser æT Function æFc PPCToolbox.p æD FUNCTION GetDefaultUser(VAR userRef: LONGINT; VAR userName: Str32): OSErr; æKY StartSecureSession æT Function æFc PPCToolbox.p æD FUNCTION StartSecureSession(pb: PPCStartPBPtr; VAR userName: Str32; useDefault: BOOLEAN; allowGuest: BOOLEAN; VAR guestSelected: BOOLEAN; prompt: Str255): OSErr; æKY PPCBrowser æT Function æFc PPCToolbox.p æD FUNCTION PPCBrowser(prompt: Str255; applListLabel: Str255; defaultSpecified: BOOLEAN; VAR theLocation: LocationNameRec; VAR thePortInfo: PortInfoRec; portFilter: PPCFilterProcPtr; theLocNBPType: Str32): OSErr; INLINE $303C,$0D00,$A82B; æKY Printing.p æKL PrClose PrCloseDoc PrClosePage PrCtlCall PrDlgMain PrDrvrClose PrDrvrDCE PrDrvrOpen PrDrvrVers PrError PrGeneral PrintDefault PrJobDialog PrJobInit PrJobMerge PrNoPurge PrOpen PrOpenDoc PrOpenPage PrPicFile PrPurge PrSetError PrStlDialog PrStlInit PrValidate bDraftLoop bSpoolLoop bUser1Loop bUser2Loop draftBitsOp feedCut feedFanfold feedMechCut feedOther getRotnOp getRslDataOp iFMgrCtl iIOAbort iMemFullErr iPFMaxPgs iPrAbort iPrBitsCtl iPrDevCtl iPrDrvrRef iPrEvtCtl iPrIOCtl iPrPgFract iPrPgFst iPrPgMax iPrRelease iPrSavPFil lHiPaintBits lHiScreenBits lPaintBits lPrDocClose lPrDocOpen lPrEvtAll lPrEvtTop lPrLFSixth lPrLFStd lPrLineFeed lPrPageClose lPrPageEnd lPrPageOpen lPrReset lScreenBits noDraftBitsOp NoSuchRsl PDlgInitProcPtr PItemProcPtr pPrGlobals PrIdleProcPtr RgType1 scanBT scanLR scanRL scanTB setRslOp TDftBitsBlk TFeed TGetRotnBlk TGetRslBlk TGnlData THLong THPfPgDir THPrint THWord TLong TN TPBitMap TPfPgDir TPLong TPPfPgDir TPPrDlg TPPrInfo TPPrint TPPrJob TPPrPort TPPrStatus TPPrStl TPPrXInfo TPrDlg TPRect TPrInfo TPrint TPrJob TPrPort TPrStatus TPrStl TPrXInfo TPWord TRslRec TRslRg TScan TSetRslBlk TWord æKY iPFMaxPgs æT constant æFc Printing.p æD iPFMaxPgs = 128; æKY iPrPgFract æT constant æFc Printing.p æD iPrPgFract = 120; {Page scale factor. ptPgSize (below) is in units of 1/iPrPgFract} æKY iPrPgFst æT constant æFc Printing.p æD iPrPgFst = 1; {Page range constants} æKY iPrPgMax æT constant æFc Printing.p æD iPrPgMax = 9999; æKY iPrRelease æT constant æFc Printing.p æD iPrRelease = 3; {Current version number of the code.} æKY iPrSavPFil æT constant æFc Printing.p æD iPrSavPFil = -1; æKY iPrAbort æT constant æFc Printing.p æD iPrAbort = $0080; æKY iPrDevCtl æT constant æFc Printing.p æD iPrDevCtl = 7; {The PrDevCtl Proc's ctl number} æKY lPrReset æT constant æFc Printing.p æD lPrReset = $00010000; {The PrDevCtl Proc's CParam for reset} æKY lPrLineFeed æT constant æFc Printing.p æD lPrLineFeed = $00030000; æKY lPrLFStd æT constant æFc Printing.p æD lPrLFStd = $0003FFFF; {The PrDevCtl Proc's CParam for std paper advance} æKY lPrLFSixth æT constant æFc Printing.p æD lPrLFSixth = $0003FFFF; æKY lPrPageEnd æT constant æFc Printing.p æD lPrPageEnd = $00020000; {The PrDevCtl Proc's CParam for end page} æKY lPrDocOpen æT constant æFc Printing.p æD lPrDocOpen = $00010000; æKY lPrPageOpen æT constant æFc Printing.p æD lPrPageOpen = $00040000; æKY lPrPageClose æT constant æFc Printing.p æD lPrPageClose = $00020000; æKY lPrDocClose æT constant æFc Printing.p æD lPrDocClose = $00050000; æKY iFMgrCtl æT constant æFc Printing.p æD iFMgrCtl = 8; {The FMgr's Tail-hook Proc's ctl number} æKY iMemFullErr æT constant æFc Printing.p æD iMemFullErr = -108; æKY iIOAbort æT constant æFc Printing.p æD iIOAbort = -27; æKY pPrGlobals æT constant æFc Printing.p æD pPrGlobals = $00000944; {The PrVars lo mem area:} æKY bDraftLoop æT constant æFc Printing.p æD bDraftLoop = 0; æKY bSpoolLoop æT constant æFc Printing.p æD bSpoolLoop = 1; æKY bUser1Loop æT constant æFc Printing.p æD bUser1Loop = 2; æKY bUser2Loop æT constant æFc Printing.p æD bUser2Loop = 3; æKY iPrBitsCtl æT constant æFc Printing.p æD iPrBitsCtl = 4; æKY lScreenBits æT constant æFc Printing.p æD lScreenBits = 0; æKY lPaintBits æT constant æFc Printing.p æD lPaintBits = 1; æKY lHiScreenBits æT constant æFc Printing.p æD lHiScreenBits = $00000002; {The Bitmap Print Proc's Screen Bitmap param} æKY lHiPaintBits æT constant æFc Printing.p æD lHiPaintBits = $00000003; {The Bitmap Print Proc's Paint [sq pix] param} æKY iPrIOCtl æT constant æFc Printing.p æD iPrIOCtl = 5; æKY iPrEvtCtl æT constant æFc Printing.p æD iPrEvtCtl = 6; {The PrEvent Proc's ctl number} æKY lPrEvtAll æT constant æFc Printing.p æD lPrEvtAll = $0002FFFD; {The PrEvent Proc's CParam for the entire screen} æKY lPrEvtTop æT constant æFc Printing.p æD lPrEvtTop = $0001FFFD; {The PrEvent Proc's CParam for the top folder} æKY iPrDrvrRef æT constant æFc Printing.p æD iPrDrvrRef = -3; æKY getRslDataOp æT constant æFc Printing.p æD getRslDataOp = 4; æKY setRslOp æT constant æFc Printing.p æD setRslOp = 5; æKY draftBitsOp æT constant æFc Printing.p æD draftBitsOp = 6; æKY noDraftBitsOp æT constant æFc Printing.p æD noDraftBitsOp = 7; æKY getRotnOp æT constant æFc Printing.p æD getRotnOp = 8; æKY NoSuchRsl æT constant æFc Printing.p æD NoSuchRsl = 1; æKY RgType1 æT constant æFc Printing.p æD RgType1 = 1; æKY TFeed feedCut feedFanfold feedMechCut feedOther æT enum æFc Printing.p æD TFeed = (feedCut,feedFanfold,feedMechCut,feedOther); æKY TScan scanTB scanBT scanLR scanRL æT enum æFc Printing.p æD TScan = (scanTB,scanBT,scanLR,scanRL); æKY TPRect æT union æFc Printing.p æD TPRect = ^Rect; { A Rect Ptr } æKY PrIdleProcPtr æT typedef æFc Printing.p æD PrIdleProcPtr = ProcPtr; æKY PItemProcPtr æT typedef æFc Printing.p æD PItemProcPtr = ProcPtr; æKY TPrPort æT struct æFc Printing.p æD TPPrPort = ^TPrPort; TPrPort = RECORD gPort: GrafPort; {The Printer's graf port.} gProcs: QDProcs; {..and its procs} lGParam1: LONGINT; {16 bytes for private parameter storage.} lGParam2: LONGINT; lGParam3: LONGINT; lGParam4: LONGINT; fOurPtr: BOOLEAN; {Whether the PrPort allocation was done by us.} fOurBits: BOOLEAN; {Whether the BitMap allocation was done by us.} END; æKY TPrInfo æT struct æFc Printing.p æD TPPrInfo = ^TPrInfo; TPrInfo = RECORD iDev: INTEGER; {Font mgr/QuickDraw device code} iVRes: INTEGER; {Resolution of device, in device coordinates} iHRes: INTEGER; {..note: V before H => compatable with Point.} rPage: Rect; {The page (printable) rectangle in device coordinates.} END; æKY TPrStl æT struct æFc Printing.p æD TPPrStl = ^TPrStl; TPrStl = RECORD wDev: INTEGER; iPageV: INTEGER; iPageH: INTEGER; bPort: SignedByte; feed: TFeed; END; æKY TPrXInfo æT struct æFc Printing.p æD TPPrXInfo = ^TPrXInfo; TPrXInfo = RECORD iRowBytes: INTEGER; iBandV: INTEGER; iBandH: INTEGER; iDevBytes: INTEGER; iBands: INTEGER; bPatScale: SignedByte; bUlThick: SignedByte; bUlOffset: SignedByte; bUlShadow: SignedByte; scan: TScan; bXInfoX: SignedByte; END; æKY TPrJob æT struct æFc Printing.p æD TPPrJob = ^TPrJob; TPrJob = RECORD iFstPage: INTEGER; {Page Range.} iLstPage: INTEGER; iCopies: INTEGER; {No. copies.} bJDocLoop: SignedByte; {The Doc style: Draft, Spool, .., and ..} fFromUsr: BOOLEAN; {Printing from an User's App (not PrApp) flag} pIdleProc: PrIdleProcPtr; {The Proc called while waiting on IO etc.} pFileName: StringPtr; {Spool File Name: NIL for default.} iFileVol: INTEGER; {Spool File vol, set to 0 initially} bFileVers: SignedByte; {Spool File version, set to 0 initially} bJobX: SignedByte; {An eXtra byte.} END; æKY TPrint æT struct æFc Printing.p æD TPPrint = ^TPrint; THPrint = ^TPPrint; TPrint = RECORD iPrVersion: INTEGER; {(2) Printing software version} prInfo: TPrInfo; {(14) the PrInfo data associated with the current style.} rPaper: Rect; {(8) The paper rectangle [offset from rPage]} prStl: TPrStl; {(8) This print request's style.} prInfoPT: TPrInfo; {(14) Print Time Imaging metrics} prXInfo: TPrXInfo; {(16) Print-time (expanded) Print info record.} prJob: TPrJob; {(20) The Print Job request (82) Total of the above; 120-82 = 38 bytes needed to fill 120} printX: ARRAY [1..19] OF INTEGER; {Spare to fill to 120 bytes!} END; æKY TPrStatus æT struct æFc Printing.p æD TPPrStatus = ^TPrStatus; TPrStatus = RECORD iTotPages: INTEGER; {Total pages in Print File.} iCurPage: INTEGER; {Current page number} iTotCopies: INTEGER; {Total copies requested} iCurCopy: INTEGER; {Current copy number} iTotBands: INTEGER; {Total bands per page.} iCurBand: INTEGER; {Current band number} fPgDirty: BOOLEAN; {True if current page has been written to.} fImaging: BOOLEAN; {Set while in band's DrawPic call.} hPrint: THPrint; {Handle to the active Printer record} pPrPort: TPPrPort; {Ptr to the active PrPort} hPic: PicHandle; {Handle to the active Picture} END; æKY TPfPgDir æT struct æFc Printing.p æD TPPfPgDir = ^TPfPgDir; THPfPgDir = ^TPPfPgDir; TPfPgDir = RECORD iPages: INTEGER; iPgPos: ARRAY [0..128] OF LONGINT; {ARRAY [0..iPfMaxPgs] OF LONGINT} END; æKY TPrDlg æT struct æFc Printing.p æD TPPrDlg = ^TPrDlg; TPrDlg = RECORD Dlg: DialogRecord; {The Dialog window} pFltrProc: ModalFilterProcPtr; {The Filter Proc.} pItemProc: PItemProcPtr; {The Item evaluating proc.} hPrintUsr: THPrint; {The user's print record.} fDoIt: BOOLEAN; fDone: BOOLEAN; lUser1: LONGINT; {Four longs for user's to hang global data.} lUser2: LONGINT; {...Plus more stuff needed by the particular printing dialog.} lUser3: LONGINT; lUser4: LONGINT; END; æKY PDlgInitProcPtr æT typedef æFc Printing.p æD PDlgInitProcPtr = ProcPtr; æKY TGnlData æT struct æFc Printing.p æD TGnlData = RECORD iOpCode: INTEGER; iError: INTEGER; lReserved: LONGINT; {more fields here depending on call} END; æKY TRslRg æT struct æFc Printing.p æD TRslRg = RECORD iMin: INTEGER; iMax: INTEGER; END; æKY TRslRec æT struct æFc Printing.p æD TRslRec = RECORD iXRsl: INTEGER; iYRsl: INTEGER; END; æKY TGetRslBlk æT struct æFc Printing.p æD TGetRslBlk = RECORD iOpCode: INTEGER; iError: INTEGER; lReserved: LONGINT; iRgType: INTEGER; xRslRg: TRslRg; yRslRg: TRslRg; iRslRecCnt: INTEGER; rgRslRec: ARRAY [1..27] OF TRslRec; END; æKY TSetRslBlk æT struct æFc Printing.p æD TSetRslBlk = RECORD iOpCode: INTEGER; iError: INTEGER; lReserved: LONGINT; hPrint: THPrint; iXRsl: INTEGER; iYRsl: INTEGER; END; æKY TDftBitsBlk æT struct æFc Printing.p æD TDftBitsBlk = RECORD iOpCode: INTEGER; iError: INTEGER; lReserved: LONGINT; hPrint: THPrint; END; æKY TGetRotnBlk æT struct æFc Printing.p æD TGetRotnBlk = RECORD iOpCode: INTEGER; iError: INTEGER; lReserved: LONGINT; hPrint: THPrint; fLandscape: BOOLEAN; bXtra: SignedByte; END; æKY TPBitMap æT union æFc Printing.p æD TPBitMap = ^BitMap; { A BitMap Ptr } æKY TN æT union æFc Printing.p æD TN = 0..15; { a Nibble } æKY TWord æT struct æFc Printing.p æD TPWord = ^TWord; THWord = ^TPWord; TWord = PACKED RECORD CASE INTEGER OF 0: (c1,c0: CHAR); 1: (b1,b0: SignedByte); 2: (usb1,usb0: Byte); 3: (n3,n2,n1,n0: TN); 4: (f15,f14,f13,f12,f11,f10,f9,f8,f7,f6,f5,f4,f3,f2,f1,f0: BOOLEAN); 5: (i0: INTEGER); END; æKY TLong æT struct æFc Printing.p æD TPLong = ^TLong; THLong = ^TPLong; TLong = RECORD CASE INTEGER OF 0: (w1,w0: TWord); 1: (b1,b0: LONGINT); 2: (p0: Ptr); 3: (h0: Handle); 4: (pt: Point); END; æKY PrPurge æT Function æFc Printing.p æD PROCEDURE PrPurge; æKY PrNoPurge æT Function æFc Printing.p æD PROCEDURE PrNoPurge; æKY PrOpen æT Function æFc Printing.p æD PROCEDURE PrOpen; æKY PrClose æT Function æFc Printing.p æD PROCEDURE PrClose; æKY PrintDefault æT Function æFc Printing.p æD PROCEDURE PrintDefault(hPrint: THPrint); æKY PrValidate æT Function æFc Printing.p æD FUNCTION PrValidate(hPrint: THPrint): BOOLEAN; æKY PrStlDialog æT Function æFc Printing.p æD FUNCTION PrStlDialog(hPrint: THPrint): BOOLEAN; æKY PrJobDialog æT Function æFc Printing.p æD FUNCTION PrJobDialog(hPrint: THPrint): BOOLEAN; æKY PrStlInit æT Function æFc Printing.p æD FUNCTION PrStlInit(hPrint: THPrint): TPPrDlg; æKY PrJobInit æT Function æFc Printing.p æD FUNCTION PrJobInit(hPrint: THPrint): TPPrDlg; æKY PrJobMerge æT Function æFc Printing.p æD PROCEDURE PrJobMerge(hPrintSrc: THPrint;hPrintDst: THPrint); æKY PrDlgMain æT Function æFc Printing.p æD FUNCTION PrDlgMain(hPrint: THPrint;pDlgInit: PDlgInitProcPtr): BOOLEAN; æKY PrOpenDoc æT Function æFc Printing.p æD FUNCTION PrOpenDoc(hPrint: THPrint;pPrPort: TPPrPort;pIOBuf: Ptr): TPPrPort; æKY PrCloseDoc æT Function æFc Printing.p æD PROCEDURE PrCloseDoc(pPrPort: TPPrPort); æKY PrOpenPage æT Function æFc Printing.p æD PROCEDURE PrOpenPage(pPrPort: TPPrPort;pPageFrame: TPRect); æKY PrClosePage æT Function æFc Printing.p æD PROCEDURE PrClosePage(pPrPort: TPPrPort); æKY PrPicFile æT Function æFc Printing.p æD PROCEDURE PrPicFile(hPrint: THPrint;pPrPort: TPPrPort;pIOBuf: Ptr;pDevBuf: Ptr; VAR prStatus: TPrStatus); æKY PrError æT Function æFc Printing.p æD FUNCTION PrError: INTEGER; æKY PrSetError æT Function æFc Printing.p æD PROCEDURE PrSetError(iErr: INTEGER); æKY PrGeneral æT Function æFc Printing.p æD PROCEDURE PrGeneral(pData: Ptr); æKY PrDrvrOpen æT Function æFc Printing.p æD PROCEDURE PrDrvrOpen; æKY PrDrvrClose æT Function æFc Printing.p æD PROCEDURE PrDrvrClose; æKY PrCtlCall æT Function æFc Printing.p æD PROCEDURE PrCtlCall(iWhichCtl: INTEGER;lParam1: LONGINT;lParam2: LONGINT; lParam3: LONGINT); æKY PrDrvrDCE æT Function æFc Printing.p æD FUNCTION PrDrvrDCE: Handle; æKY PrDrvrVers æT Function æFc Printing.p æD FUNCTION PrDrvrVers: INTEGER; æKY Processes.p æKL GetCurrentProcess GetFrontProcess GetNextProcess GetProcessInformation LaunchApplication LaunchDeskAccessory SameProcess SetFrontProcess WakeUpProcess aeApplicationDied aeCreatorType aeProcessKeyword aeProcessParamType aeQuitAll aeRestart aeShutDown AppParameters AppParametersPtr extendedBlock extendedBlockLen kCurrentProcess kNoProcess kSystemProcess launchAllow24Bit launchContinue launchDontSwitch LaunchFlags launchInhibitDaemon launchNoFileFlags LaunchParamBlockRec LaunchPBPtr launchUseMinimum mode32BitCompatible modeCanBackground modeDeskAccessory modeDoesActivateOnFGSwitch modeGetAppDiedMsg modeGetFrontClicks modeHighLevelEventAware modeLocalAndRemoteHLEvents modeMultiLaunch modeNeedSuspendResume modeOnlyBackground modeStationeryAware modeUseTextEditServices ProcessInfoRec ProcessInfoRecPtr ProcessSerialNumber ProcessSerialNumberPtr æKY aeCreatorType æT constant æFc Processes.p æD aeCreatorType = 'crea'; æKY aeQuitAll æT constant æFc Processes.p æD aeQuitAll = 'quia'; æKY aeShutDown æT constant æFc Processes.p æD aeShutDown = 'shut'; æKY aeRestart æT constant æFc Processes.p æD aeRestart = 'rest'; æKY aeApplicationDied æT constant æFc Processes.p æD aeApplicationDied = 'obit'; æKY aeProcessKeyword æT constant æFc Processes.p æD aeProcessKeyword = 'proc'; æKY aeProcessParamType æT constant æFc Processes.p æD aeProcessParamType = 'proc'; æKY kNoProcess æT constant æFc Processes.p æD kNoProcess = 0; æKY kSystemProcess æT constant æFc Processes.p æD kSystemProcess = 1; æKY kCurrentProcess æT constant æFc Processes.p æD kCurrentProcess = 2; æKY ProcessSerialNumber æT struct æFc Processes.p æD ProcessSerialNumberPtr = ^ProcessSerialNumber; ProcessSerialNumber = RECORD highLongOfPSN: LONGINT; lowLongOfPSN: LONGINT; END; æKY LaunchFlags æT typedef æFc Processes.p æD LaunchFlags = INTEGER; æKY launchContinue æT constant æFc Processes.p æD launchContinue = $4000; æKY launchNoFileFlags æT constant æFc Processes.p æD launchNoFileFlags = $0800; æKY launchUseMinimum æT constant æFc Processes.p æD launchUseMinimum = $0400; æKY launchDontSwitch æT constant æFc Processes.p æD launchDontSwitch = $0200; æKY launchAllow24Bit æT constant æFc Processes.p æD launchAllow24Bit = $0100; æKY launchInhibitDaemon æT constant æFc Processes.p æD launchInhibitDaemon = $0080; æKY AppParameters æT struct æFc Processes.p æD AppParametersPtr = ^AppParameters; AppParameters = RECORD theMsgEvent: EventRecord; eventRefCon: LONGINT; messageLength: LONGINT; messageBuffer: ARRAY [0..0] OF SignedByte; END; æKY LaunchParamBlockRec æT struct æFc Processes.p æD LaunchPBPtr = ^LaunchParamBlockRec; LaunchParamBlockRec = RECORD reserved1: LONGINT; reserved2: INTEGER; launchBlockID: INTEGER; launchEPBLength: LONGINT; launchFileFlags: INTEGER; launchControlFlags: LaunchFlags; launchAppSpec: FSSpecPtr; launchProcessSN: ProcessSerialNumber; launchPreferredSize: LONGINT; launchMinimumSize: LONGINT; launchAvailableSize: LONGINT; launchAppParameters: AppParametersPtr; END; æKY extendedBlock æT constant æFc Processes.p æD extendedBlock = $4C43; { 'LC' } æKY extendedBlockLen æT constant æFc Processes.p æD extendedBlockLen = (sizeof(LaunchParamBlockRec) - 12); æKY modeDeskAccessory æT constant æFc Processes.p æD modeDeskAccessory = $00020000; æKY modeMultiLaunch æT constant æFc Processes.p æD modeMultiLaunch = $00010000; æKY modeNeedSuspendResume æT constant æFc Processes.p æD modeNeedSuspendResume = $00004000; æKY modeCanBackground æT constant æFc Processes.p æD modeCanBackground = $00001000; æKY modeDoesActivateOnFGSwitch æT constant æFc Processes.p æD modeDoesActivateOnFGSwitch = $00000800; æKY modeOnlyBackground æT constant æFc Processes.p æD modeOnlyBackground = $00000400; æKY modeGetFrontClicks æT constant æFc Processes.p æD modeGetFrontClicks = $00000200; æKY modeGetAppDiedMsg æT constant æFc Processes.p æD modeGetAppDiedMsg = $00000100; æKY mode32BitCompatible æT constant æFc Processes.p æD mode32BitCompatible = $00000080; æKY modeHighLevelEventAware æT constant æFc Processes.p æD modeHighLevelEventAware = $00000040; æKY modeLocalAndRemoteHLEvents æT constant æFc Processes.p æD modeLocalAndRemoteHLEvents = $00000020; æKY modeStationeryAware æT constant æFc Processes.p æD modeStationeryAware = $00000010; æKY modeUseTextEditServices æT constant æFc Processes.p æD modeUseTextEditServices = $00000008; æKY ProcessInfoRec æT struct æFc Processes.p æD ProcessInfoRecPtr = ^ProcessInfoRec; ProcessInfoRec = RECORD processInfoLength: LONGINT; processName: StringPtr; processNumber: ProcessSerialNumber; processType: LONGINT; processSignature: OSType; processMode: LONGINT; processLocation: Ptr; processSize: LONGINT; processFreeMem: LONGINT; processLauncher: ProcessSerialNumber; processLaunchDate: LONGINT; processActiveTime: LONGINT; processAppSpec: FSSpecPtr; END; æKY LaunchApplication æT Function æFc Processes.p æD FUNCTION LaunchApplication(LaunchParams:LaunchPBPtr):OSErr; INLINE $205F,$A9F2,$3E80; æKY LaunchDeskAccessory æT Function æFc Processes.p æD FUNCTION LaunchDeskAccessory(pFileSpec: FSSpecPtr;pDAName: StringPtr): OSErr; INLINE $3F3C,$0036,$A88F; æKY GetCurrentProcess æT Function æFc Processes.p æD FUNCTION GetCurrentProcess(VAR PSN: ProcessSerialNumber): OSErr; INLINE $3F3C,$0037,$A88F; æKY GetFrontProcess æT Function æFc Processes.p æD FUNCTION GetFrontProcess(VAR PSN: ProcessSerialNumber): OSErr; INLINE $70FF,$2F00,$3F3C,$0039,$A88F; æKY GetNextProcess æT Function æFc Processes.p æD FUNCTION GetNextProcess(VAR PSN: ProcessSerialNumber): OSErr; INLINE $3F3C,$0038,$A88F; æKY GetProcessInformation æT Function æFc Processes.p æD FUNCTION GetProcessInformation(PSN: ProcessSerialNumber;VAR info: ProcessInfoRec): OSErr; INLINE $3F3C,$003A,$A88F; æKY SetFrontProcess æT Function æFc Processes.p æD FUNCTION SetFrontProcess(PSN: ProcessSerialNumber): OSErr; INLINE $3F3C,$003B,$A88F; æKY WakeUpProcess æT Function æFc Processes.p æD FUNCTION WakeUpProcess(PSN: ProcessSerialNumber): OSErr; INLINE $3F3C,$003C,$A88F; æKY SameProcess æT Function æFc Processes.p æD FUNCTION SameProcess(PSN1: ProcessSerialNumber;PSN2: ProcessSerialNumber; VAR result: BOOLEAN): OSErr; INLINE $3F3C,$003D,$A88F; æKY QDOffscreen.p æKL AllowPurgePixels CTabChanged DisposeGWorld DisposeScreenBuffer GDeviceChanged GetGWorld GetGWorldDevice GetGWorldPixMap GetPixBaseAddr GetPixelsState LockPixels NewGWorld NewScreenBuffer NewTempScreenBuffer NoPurgePixels OffscreenVersion PixMap32Bit PixPatChanged PortChanged QDDone SetGWorld SetPixelsState UnlockPixels UpdateGWorld cDepthErr GWorldFlags GWorldPtr scanBT scanLR scanRL scanTB æKY cDepthErr æT constant æFc QDOffscreen.p æD cDepthErr = -157; {invalid pixel depth} æKY GWorldFlags æFc QDOffscreen.p æD GWorldFlags = SET OF (pixPurge,noNewDevice,useTempMem,keepLocal,GWorldFlags4, GWorldFlags5,pixelsPurgeable,pixelsLocked,GWorldFlags8,GWorldFlags9,GWorldFlags10, GWorldFlags11,GWorldFlags12,GWorldFlags13,GWorldFlags14,GWorldFlags15, mapPix,newDepth,alignPix,newRowBytes,reallocPix,GWorldFlags21,GWorldFlags22, GWorldFlags23,GWorldFlags24,GWorldFlags25,GWorldFlags26,GWorldFlags27, clipPix,stretchPix,ditherPix,gwFlagErr); æKY GWorldPtr æT union æFc QDOffscreen.p æD GWorldPtr = CGrafPtr; æKY NewGWorld æT Function æFc QDOffscreen.p æD FUNCTION NewGWorld(VAR offscreenGWorld: GWorldPtr;PixelDepth: INTEGER;boundsRect: Rect; cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): QDErr; INLINE $203C, $0016, $0000,$AB1D; æKY LockPixels æT Function æFc QDOffscreen.p æD FUNCTION LockPixels(pm: PixMapHandle): BOOLEAN; INLINE $203C, $0004, $0001, $AB1D; æKY UnlockPixels æT Function æFc QDOffscreen.p æD PROCEDURE UnlockPixels(pm: PixMapHandle); INLINE $203C, $0004, $0002, $AB1D; æKY UpdateGWorld æT Function æFc QDOffscreen.p æD FUNCTION UpdateGWorld(VAR offscreenGWorld: GWorldPtr;pixelDepth: INTEGER; boundsRect: Rect;cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): GWorldFlags; INLINE $203C, $0016, $0003, $AB1D; æKY DisposeGWorld æT Function æFc QDOffscreen.p æD PROCEDURE DisposeGWorld(offscreenGWorld: GWorldPtr); INLINE $203C, $0004, $0004, $AB1D; æKY GetGWorld æT Function æFc QDOffscreen.p æD PROCEDURE GetGWorld(VAR port: CGrafPtr;VAR gdh: GDHandle); INLINE $203C, $0008, $0005, $AB1D; æKY SetGWorld æT Function æFc QDOffscreen.p æD PROCEDURE SetGWorld(port: CGrafPtr;gdh: GDHandle); INLINE $203C, $0008, $0006, $AB1D; æKY CTabChanged æT Function æFc QDOffscreen.p æD PROCEDURE CTabChanged(ctab: CTabHandle); INLINE $203C, $0004, $0007, $AB1D; æKY PixPatChanged æT Function æFc QDOffscreen.p æD PROCEDURE PixPatChanged(ppat: PixPatHandle); INLINE $203C, $0004, $0008, $AB1D; æKY PortChanged æT Function æFc QDOffscreen.p æD PROCEDURE PortChanged(port: GrafPtr); INLINE $203C, $0004, $0009, $AB1D; æKY GDeviceChanged æT Function æFc QDOffscreen.p æD PROCEDURE GDeviceChanged(gdh: GDHandle); INLINE $203C, $0004, $000A, $AB1D; æKY AllowPurgePixels æT Function æFc QDOffscreen.p æD PROCEDURE AllowPurgePixels(pm: PixMapHandle); INLINE $203C, $0004, $000B, $AB1D; æKY NoPurgePixels æT Function æFc QDOffscreen.p æD PROCEDURE NoPurgePixels(pm: PixMapHandle); INLINE $203C, $0004, $000C, $AB1D; æKY GetPixelsState æT Function æFc QDOffscreen.p æD FUNCTION GetPixelsState(pm: PixMapHandle): GWorldFlags; INLINE $203C, $0004, $000D, $AB1D; æKY SetPixelsState æT Function æFc QDOffscreen.p æD PROCEDURE SetPixelsState(pm: PixMapHandle;state: GWorldFlags); INLINE $203C, $0008, $000E, $AB1D; æKY GetPixBaseAddr æT Function æFc QDOffscreen.p æD FUNCTION GetPixBaseAddr(pm: PixMapHandle): Ptr; INLINE $203C, $0004, $000F, $AB1D; æKY NewScreenBuffer æT Function æFc QDOffscreen.p æD FUNCTION NewScreenBuffer(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle; VAR offscreenPixMap: PixMapHandle): QDErr; INLINE $203C, $000E, $0010, $AB1D; æKY DisposeScreenBuffer æT Function æFc QDOffscreen.p æD PROCEDURE DisposeScreenBuffer(offscreenPixMap: PixMapHandle); INLINE $203C, $0004, $0011, $AB1D; æKY GetGWorldDevice æT Function æFc QDOffscreen.p æD FUNCTION GetGWorldDevice(offscreenGWorld: GWorldPtr): GDHandle; INLINE $203C, $0004, $0012, $AB1D; æKY QDDone æT Function æFc QDOffscreen.p æD FUNCTION QDDone(port: GrafPtr): BOOLEAN; INLINE $203C, $0004, $0013, $AB1D; æKY OffscreenVersion æT Function æFc QDOffscreen.p æD FUNCTION OffscreenVersion: LONGINT; INLINE $7014, $AB1D; æKY NewTempScreenBuffer æT Function æFc QDOffscreen.p æD FUNCTION NewTempScreenBuffer(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle; VAR offscreenPixMap: PixMapHandle): QDErr; INLINE $203C, $000E, $0015, $AB1D; æKY PixMap32Bit æT Function æFc QDOffscreen.p æD FUNCTION PixMap32Bit(pmHandle: PixMapHandle): BOOLEAN; INLINE $203C, $0004, $0016, $AB1D; æKY GetGWorldPixMap æT Function æFc QDOffscreen.p æD FUNCTION GetGWorldPixMap(offscreenGWorld: GWorldPtr): PixMapHandle; INLINE $203C, $0004, $0017, $AB1D; æKY Quickdraw.p æKL AddComp AddPt AddSearch AllocCursor BackColor BackPat BackPixPat BitMapToRegion BitMapToRegionGlue CalcCMask CalcMask CharExtra CharWidth ClipRect CloseCPort ClosePicture ClosePoly ClosePort CloseRgn Color2Index ColorBit CopyBits CopyDeepMask CopyMask CopyPixMap CopyPixPat CopyRgn DelComp DelSearch DeviceLoop DiffRgn DisposCCursor DisposCIcon DisposCTable DisposeCCursor DisposeCIcon DisposeCTable DisposeGDevice DisposePixMap DisposePixPat DisposeRgn DisposGDevice DisposPixMap DisposPixPat DrawChar DrawPicture DrawString DrawText EmptyRect EmptyRgn EqualPt EqualRect EqualRgn EraseArc EraseOval ErasePoly EraseRect EraseRgn EraseRoundRect FillArc FillCArc FillCOval FillCPoly FillCRect FillCRgn FillCRoundRect FillOval FillPoly FillRect FillRgn FillRoundRect ForeColor FrameArc FrameOval FramePoly FrameRect FrameRgn FrameRoundRect GetBackColor GetCCursor GetCIcon GetClip GetCPixel GetCTable GetCTSeed GetDeviceList GetFontInfo GetForeColor GetGDevice GetMainDevice GetMaskTable GetMaxDevice GetNextDevice GetPen GetPenState GetPixel GetPixPat GetPort GetSubTable GlobalToLocal GrafDevice HideCursor HidePen HiliteColor Index2Color InitCPort InitCursor InitGDevice InitGraf InitPort InsetRect InsetRgn InvertArc InvertColor InvertOval InvertPoly InvertRect InvertRgn InvertRoundRect KillPicture KillPoly Line LineTo LocalToGlobal MakeITable MakeRGBPat MapPoly MapPt MapRect MapRgn MeasureText Move MovePortTo MoveTo NewGDevice NewPixMap NewPixPat NewRgn ObscureCursor OffsetPoly OffsetRect OffsetRgn OpColor OpenCPicture OpenCPort OpenPicture OpenPoly OpenPort OpenRgn PaintArc PaintOval PaintPoly PaintRect PaintRgn PaintRoundRect PenMode PenNormal PenPat PenPixPat PenSize PicComment PlotCIcon PortSize ProtectEntry Pt2Rect PtInRect PtInRgn PtToAngle QDError Random RealColor RectInRgn RectRgn ReserveEntry RestoreEntries RGBBackColor RGBForeColor SaveEntries ScalePt ScrollRect SectRect SectRgn SeedCFill SeedFill SetCCursor SetClientID SetClip SetCPixel SetCursor SetDeviceAttribute SetEmptyRgn SetEntries SetGDevice SetOrigin SetPenState SetPort SetPortBits SetPortPix SetPt SetRect SetRectRgn SetStdCProcs SetStdProcs ShowCursor ShowPen SpaceExtra StdArc StdBits StdComment StdGetPic StdLine StdOval StdPoly StdPutPic StdRect StdRgn StdRRect StdText StdTxMeas StringWidth StuffHex SubPt TestDeviceAttribute TextFace TextFont TextMode TextSize TextWidth UnionRect UnionRgn XorRgn addMax addOver addPin adMax adMin allDevices allInit baseAddr32 BitMap BitMapHandle BitMapPtr Bits16 blackBit blackColor blend blueBit blueColor bold CCrsr CCrsrHandle CCrsrPtr CGrafPort CGrafPtr chunky chunkyPlanar CIcon CIconHandle CIconPtr clutType ColorSpec ColorSpecPtr ColorTable condense CProcHndl CProcPtr CProcRec CQDProcs CQDProcsPtr CSpecArray CTabHandle CTabPtr CursHandle Cursor CursPtr CWindowPtr cyanBit cyanColor defQDColors DeviceLoopDrawingProcPtr DeviceLoopFlags DeviceLoopFlags10 DeviceLoopFlags11 DeviceLoopFlags12 DeviceLoopFlags13 DeviceLoopFlags14 DeviceLoopFlags15 DeviceLoopFlags16 DeviceLoopFlags17 DeviceLoopFlags18 DeviceLoopFlags19 DeviceLoopFlags20 DeviceLoopFlags21 DeviceLoopFlags22 DeviceLoopFlags23 DeviceLoopFlags24 DeviceLoopFlags25 DeviceLoopFlags26 DeviceLoopFlags27 DeviceLoopFlags28 DeviceLoopFlags29 DeviceLoopFlags3 DeviceLoopFlags30 DeviceLoopFlags31 DeviceLoopFlags4 DeviceLoopFlags5 DeviceLoopFlags6 DeviceLoopFlags7 DeviceLoopFlags8 DeviceLoopFlags9 directType ditherCopy dontMatchSeeds erase extend fill fixedType FontInfo frame GammaTbl GammaTblHandle GammaTblPtr gdDevType GDevice GDHandle GDPtr GrafPort GrafPtr GrafVars GrafVerb grayishTextOr greenBit greenColor GVarHandle GVarPtr hiliteBit insufficientStackErr invalColReq inverseBit invert ITab ITabHandle ITabPtr italic magentaBit magentaColor mainScreen MatchRec noDriver normalBit notPatBic notPatCopy notPatOr notPatXor notSrcBic notSrcCopy notSrcOr notSrcXor OpenCPicParams outline paint patBic patCopy PatHandle patOr PatPtr Pattern patXor PenState pHiliteBit PicHandle picLParen PicPtr picRParen Picture PixelType PixMap PixMapHandle PixMapPtr PixPat PixPatHandle PixPatPtr planar Polygon PolyHandle PolyPtr qd QDByte QDErr QDHandle QDProcs QDProcsPtr QDPtr ramInit redBit redColor Region ReqListRec RGBColor RGBDirect RgnHandle rgnOverflowErr RgnPtr screenActive screenDevice shadow singleDevices SProcHndl SProcPtr SProcRec srcBic srcCopy srcOr srcXor Style StyleItem subOver subPin transparent underline whiteColor WindowPtr yellowBit yellowColor æKY invalColReq æT constant æFc Quickdraw.p æD invalColReq = -1; {invalid color table request} æKY srcCopy æT constant æFc Quickdraw.p æD srcCopy = 0; {the 16 transfer modes} æKY srcOr æT constant æFc Quickdraw.p æD srcOr = 1; æKY srcXor æT constant æFc Quickdraw.p æD srcXor = 2; æKY srcBic æT constant æFc Quickdraw.p æD srcBic = 3; æKY notSrcCopy æT constant æFc Quickdraw.p æD notSrcCopy = 4; æKY notSrcOr æT constant æFc Quickdraw.p æD notSrcOr = 5; æKY notSrcXor æT constant æFc Quickdraw.p æD notSrcXor = 6; æKY notSrcBic æT constant æFc Quickdraw.p æD notSrcBic = 7; æKY patCopy æT constant æFc Quickdraw.p æD patCopy = 8; æKY patOr æT constant æFc Quickdraw.p æD patOr = 9; æKY patXor æT constant æFc Quickdraw.p æD patXor = 10; æKY patBic æT constant æFc Quickdraw.p æD patBic = 11; æKY notPatCopy æT constant æFc Quickdraw.p æD notPatCopy = 12; æKY notPatOr æT constant æFc Quickdraw.p æD notPatOr = 13; æKY notPatXor æT constant æFc Quickdraw.p æD notPatXor = 14; æKY notPatBic æT constant æFc Quickdraw.p æD notPatBic = 15; æKY grayishTextOr æT constant æFc Quickdraw.p æD grayishTextOr = 49; æKY blend æT constant æFc Quickdraw.p æD blend = 32; æKY addPin æT constant æFc Quickdraw.p æD addPin = 33; æKY addOver æT constant æFc Quickdraw.p æD addOver = 34; æKY subPin æT constant æFc Quickdraw.p æD subPin = 35; æKY addMax æT constant æFc Quickdraw.p æD addMax = 37; æKY adMax æT constant æFc Quickdraw.p æD adMax = 37; æKY subOver æT constant æFc Quickdraw.p æD subOver = 38; æKY adMin æT constant æFc Quickdraw.p æD adMin = 39; æKY ditherCopy æT constant æFc Quickdraw.p æD ditherCopy = 64; æKY transparent æT constant æFc Quickdraw.p æD transparent = 36; æKY normalBit æT constant æFc Quickdraw.p æD normalBit = 0; {normal screen mapping} æKY inverseBit æT constant æFc Quickdraw.p æD inverseBit = 1; {inverse screen mapping} æKY redBit æT constant æFc Quickdraw.p æD redBit = 4; {RGB additive mapping} æKY greenBit æT constant æFc Quickdraw.p æD greenBit = 3; æKY blueBit æT constant æFc Quickdraw.p æD blueBit = 2; æKY cyanBit æT constant æFc Quickdraw.p æD cyanBit = 8; {CMYBk subtractive mapping} æKY magentaBit æT constant æFc Quickdraw.p æD magentaBit = 7; æKY yellowBit æT constant æFc Quickdraw.p æD yellowBit = 6; æKY blackBit æT constant æFc Quickdraw.p æD blackBit = 5; æKY blackColor æT constant æFc Quickdraw.p æD blackColor = 33; {colors expressed in these mappings} æKY whiteColor æT constant æFc Quickdraw.p æD whiteColor = 30; æKY redColor æT constant æFc Quickdraw.p æD redColor = 205; æKY greenColor æT constant æFc Quickdraw.p æD greenColor = 341; æKY blueColor æT constant æFc Quickdraw.p æD blueColor = 409; æKY cyanColor æT constant æFc Quickdraw.p æD cyanColor = 273; æKY magentaColor æT constant æFc Quickdraw.p æD magentaColor = 137; æKY yellowColor æT constant æFc Quickdraw.p æD yellowColor = 69; æKY picLParen æT constant æFc Quickdraw.p æD picLParen = 0; {standard picture comments} æKY picRParen æT constant æFc Quickdraw.p æD picRParen = 1; æKY clutType æT constant æFc Quickdraw.p æD clutType = 0; {0 if lookup table} æKY fixedType æT constant æFc Quickdraw.p æD fixedType = 1; {1 if fixed table} æKY directType æT constant æFc Quickdraw.p æD directType = 2; {2 if direct values} æKY gdDevType æT constant æFc Quickdraw.p æD gdDevType = 0; {0 = monochrome 1 = color} æKY ramInit æT constant æFc Quickdraw.p æD ramInit = 10; {1 if initialized from 'scrn' resource} æKY mainScreen æT constant æFc Quickdraw.p æD mainScreen = 11; { 1 if main screen } æKY allInit æT constant æFc Quickdraw.p æD allInit = 12; { 1 if all devices initialized } æKY screenDevice æT constant æFc Quickdraw.p æD screenDevice = 13; {1 if screen device [not used]} æKY noDriver æT constant æFc Quickdraw.p æD noDriver = 14; { 1 if no driver for this GDevice } æKY screenActive æT constant æFc Quickdraw.p æD screenActive = 15; {1 if in use} æKY hiliteBit æT constant æFc Quickdraw.p æD hiliteBit = 7; {flag bit in HiliteMode (lowMem flag)} æKY pHiliteBit æT constant æFc Quickdraw.p æD pHiliteBit = 0; {flag bit in HiliteMode used with BitClr procedure} æKY defQDColors æT constant æFc Quickdraw.p æD defQDColors = 127; {resource ID of clut for default QDColors} æKY RGBDirect æT constant æFc Quickdraw.p æD RGBDirect = 16; { 16 & 32 bits/pixel pixelType value } æKY baseAddr32 æT constant æFc Quickdraw.p æD baseAddr32 = 4; {pixmap base address is 32-bit address} æKY rgnOverflowErr æT constant æFc Quickdraw.p æD rgnOverflowErr = -147; { Region accumulation failed. Resulting region may be currupt } æKY insufficientStackErr æT constant æFc Quickdraw.p æD insufficientStackErr = -149; { QuickDraw could not complete the operation } æKY GrafVerb frame paint erase invert fill æT enum æFc Quickdraw.p æD GrafVerb = (frame,paint,erase,invert,fill); æKY PixelType chunky chunkyPlanar planar æT enum æFc Quickdraw.p æD PixelType = (chunky,chunkyPlanar,planar); æKY Pattern æT union æFc Quickdraw.p æD PatPtr = ^Pattern; PatHandle = ^PatPtr; Pattern = PACKED ARRAY [0..7] OF 0..255; æKY QDByte æT typedef æFc Quickdraw.p æD QDByte = SignedByte; æKY QDPtr æT union æFc Quickdraw.p æD QDPtr = Ptr; { blind pointer } æKY QDHandle æT union æFc Quickdraw.p æD QDHandle = Handle; { blind handle } æKY QDErr æT typedef æFc Quickdraw.p æD QDErr = INTEGER; æKY Bits16 æT union æFc Quickdraw.p æD Bits16 = ARRAY [0..15] OF INTEGER; æKY StyleItem bold italic underline outline shadow condense extend æT enum æFc Quickdraw.p æD StyleItem = (bold,italic,underline,outline,shadow,condense,extend); æKY Style æT union æFc Quickdraw.p æD Style = SET OF StyleItem; æKY DeviceLoopFlags singleDevices dontMatchSeeds allDevices DeviceLoopFlags3 DeviceLoopFlags4 DeviceLoopFlags5 DeviceLoopFlags6 DeviceLoopFlags7 DeviceLoopFlags8 DeviceLoopFlags9 DeviceLoopFlags10 DeviceLoopFlags11 DeviceLoopFlags12 DeviceLoopFlags13 DeviceLoopFlags14 DeviceLoopFlags15 DeviceLoopFlags16 DeviceLoopFlags17 DeviceLoopFlags18 DeviceLoopFlags19 DeviceLoopFlags20 DeviceLoopFlags21 DeviceLoopFlags22 DeviceLoopFlags23 DeviceLoopFlags24 DeviceLoopFlags25 DeviceLoopFlags26 DeviceLoopFlags27 DeviceLoopFlags28 DeviceLoopFlags29 DeviceLoopFlags30 DeviceLoopFlags31 æT enum æFc Quickdraw.p æD DeviceLoopFlags = SET OF (singleDevices,dontMatchSeeds,allDevices,DeviceLoopFlags3, DeviceLoopFlags4,DeviceLoopFlags5,DeviceLoopFlags6,DeviceLoopFlags7,DeviceLoopFlags8, DeviceLoopFlags9,DeviceLoopFlags10,DeviceLoopFlags11,DeviceLoopFlags12, DeviceLoopFlags13,DeviceLoopFlags14,DeviceLoopFlags15,DeviceLoopFlags16, DeviceLoopFlags17,DeviceLoopFlags18,DeviceLoopFlags19,DeviceLoopFlags20, DeviceLoopFlags21,DeviceLoopFlags22,DeviceLoopFlags23,DeviceLoopFlags24, DeviceLoopFlags25,DeviceLoopFlags26,DeviceLoopFlags27,DeviceLoopFlags28, DeviceLoopFlags29,DeviceLoopFlags30,DeviceLoopFlags31); æKY FontInfo æT struct æFc Quickdraw.p æD FontInfo = RECORD ascent: INTEGER; descent: INTEGER; widMax: INTEGER; leading: INTEGER; END; æKY BitMap æT struct æFc Quickdraw.p æD BitMapPtr = ^BitMap; BitMapHandle = ^BitMapPtr; BitMap = RECORD baseAddr: Ptr; rowBytes: INTEGER; bounds: Rect; END; æKY Cursor æT struct æFc Quickdraw.p æD CursPtr = ^Cursor; CursHandle = ^CursPtr; Cursor = RECORD data: Bits16; mask: Bits16; hotSpot: Point; END; æKY PenState æT struct æFc Quickdraw.p æD PenState = RECORD pnLoc: Point; pnSize: Point; pnMode: INTEGER; pnPat: Pattern; END; æKY Region æT struct æFc Quickdraw.p æD RgnPtr = ^Region; RgnHandle = ^RgnPtr; Region = RECORD rgnSize: INTEGER; {size in bytes} rgnBBox: Rect; {enclosing rectangle} END; æKY Picture æT struct æFc Quickdraw.p æD PicPtr = ^Picture; PicHandle = ^PicPtr; Picture = RECORD picSize: INTEGER; picFrame: Rect; END; æKY Polygon æT struct æFc Quickdraw.p æD PolyPtr = ^Polygon; PolyHandle = ^PolyPtr; Polygon = RECORD polySize: INTEGER; polyBBox: Rect; polyPoints: ARRAY [0..0] OF Point; END; æKY QDProcs æT struct æFc Quickdraw.p æD QDProcsPtr = ^QDProcs; QDProcs = RECORD textProc: Ptr; lineProc: Ptr; rectProc: Ptr; rRectProc: Ptr; ovalProc: Ptr; arcProc: Ptr; polyProc: Ptr; rgnProc: Ptr; bitsProc: Ptr; commentProc: Ptr; txMeasProc: Ptr; getPicProc: Ptr; putPicProc: Ptr; END; æKY GrafPort æT struct æFc Quickdraw.p æD GrafPtr = ^GrafPort; GrafPort = RECORD device: INTEGER; portBits: BitMap; portRect: Rect; visRgn: RgnHandle; clipRgn: RgnHandle; bkPat: Pattern; fillPat: Pattern; pnLoc: Point; pnSize: Point; pnMode: INTEGER; pnPat: Pattern; pnVis: INTEGER; txFont: INTEGER; txFace: Style; {txFace is unpacked byte but push as short} txMode: INTEGER; txSize: INTEGER; spExtra: Fixed; fgColor: LONGINT; bkColor: LONGINT; colrBit: INTEGER; patStretch: INTEGER; picSave: Handle; rgnSave: Handle; polySave: Handle; grafProcs: QDProcsPtr; END; æKY WindowPtr æT typedef æFc Quickdraw.p æD WindowPtr = GrafPtr; æKY RGBColor æT struct æFc Quickdraw.p æD RGBColor = RECORD red: INTEGER; {magnitude of red component} green: INTEGER; {magnitude of green component} blue: INTEGER; {magnitude of blue component} END; æKY ColorSpec æT struct æFc Quickdraw.p æD ColorSpecPtr = ^ColorSpec; ColorSpec = RECORD value: INTEGER; {index or other value} rgb: RGBColor; {true color} END; æKY CSpecArray æT typedef æFc Quickdraw.p æD CSpecArray = ARRAY [0..0] OF ColorSpec; æKY ColorTable æT struct æFc Quickdraw.p æD CTabPtr = ^ColorTable; CTabHandle = ^CTabPtr; ColorTable = RECORD ctSeed: LONGINT; {unique identifier for table} ctFlags: INTEGER; {high bit: 0 = PixMap; 1 = device} ctSize: INTEGER; {number of entries in CTTable} ctTable: CSpecArray; {array [0..0] of ColorSpec} END; æKY MatchRec æT struct æFc Quickdraw.p æD MatchRec = RECORD red: INTEGER; green: INTEGER; blue: INTEGER; matchData: LONGINT; END; æKY PixMap æT struct æFc Quickdraw.p æD PixMapPtr = ^PixMap; PixMapHandle = ^PixMapPtr; PixMap = RECORD baseAddr: Ptr; {pointer to pixels} rowBytes: INTEGER; {offset to next line} bounds: Rect; {encloses bitmap} pmVersion: INTEGER; {pixMap version number} packType: INTEGER; {defines packing format} packSize: LONGINT; {length of pixel data} hRes: Fixed; {horiz. resolution (ppi)} vRes: Fixed; {vert. resolution (ppi)} pixelType: INTEGER; {defines pixel type} pixelSize: INTEGER; {# bits in pixel} cmpCount: INTEGER; {# components in pixel} cmpSize: INTEGER; {# bits per component} planeBytes: LONGINT; {offset to next plane} pmTable: CTabHandle; {color map for this pixMap} pmReserved: LONGINT; {for future use. MUST BE 0} END; æKY PixPat æT struct æFc Quickdraw.p æD PixPatPtr = ^PixPat; PixPatHandle = ^PixPatPtr; PixPat = RECORD patType: INTEGER; {type of pattern} patMap: PixMapHandle; {the pattern's pixMap} patData: Handle; {pixmap's data} patXData: Handle; {expanded Pattern data} patXValid: INTEGER; {flags whether expanded Pattern valid} patXMap: Handle; {Handle to expanded Pattern data} pat1Data: Pattern; {old-Style pattern/RGB color} END; æKY CCrsr æT struct æFc Quickdraw.p æD CCrsrPtr = ^CCrsr; CCrsrHandle = ^CCrsrPtr; CCrsr = RECORD crsrType: INTEGER; {type of cursor} crsrMap: PixMapHandle; {the cursor's pixmap} crsrData: Handle; {cursor's data} crsrXData: Handle; {expanded cursor data} crsrXValid: INTEGER; {depth of expanded data (0 if none)} crsrXHandle: Handle; {future use} crsr1Data: Bits16; {one-bit cursor} crsrMask: Bits16; {cursor's mask} crsrHotSpot: Point; {cursor's hotspot} crsrXTable: LONGINT; {private} crsrID: LONGINT; {private} END; æKY CIcon æT struct æFc Quickdraw.p æD CIconPtr = ^CIcon; CIconHandle = ^CIconPtr; CIcon = RECORD iconPMap: PixMap; {the icon's pixMap} iconMask: BitMap; {the icon's mask} iconBMap: BitMap; {the icon's bitMap} iconData: Handle; {the icon's data} iconMaskData: ARRAY [0..0] OF INTEGER; {icon's mask and BitMap data} END; æKY GammaTbl æT struct æFc Quickdraw.p æD GammaTblPtr = ^GammaTbl; GammaTblHandle = ^GammaTblPtr; GammaTbl = RECORD gVersion: INTEGER; {gamma version number} gType: INTEGER; {gamma data type} gFormulaSize: INTEGER; {Formula data size} gChanCnt: INTEGER; {number of channels of data} gDataCnt: INTEGER; {number of values/channel} gDataWidth: INTEGER; {bits/corrected value (data packed to next larger byte size)} gFormulaData: ARRAY [0..0] OF INTEGER; {data for formulas followed by gamma values} END; æKY ITab æT struct æFc Quickdraw.p æD ITabPtr = ^ITab; ITabHandle = ^ITabPtr; ITab = RECORD iTabSeed: LONGINT; {copy of CTSeed from source CTable} iTabRes: INTEGER; {bits/channel resolution of iTable} iTTable: ARRAY [0..0] OF SignedByte; {byte colortable index values} END; æKY SProcRec æT struct æFc Quickdraw.p æD SProcPtr = ^SProcRec; SProcHndl = ^SProcPtr; SProcRec = RECORD nxtSrch: Handle; {Handle to next SProcRec} srchProc: ProcPtr; {pointer to search procedure} END; æKY CProcRec æT struct æFc Quickdraw.p æD CProcPtr = ^CProcRec; CProcHndl = ^CProcPtr; CProcRec = RECORD nxtComp: CProcHndl; {CProcHndl Handle to next CProcRec} compProc: ProcPtr; {pointer to complement procedure} END; æKY GDevice æT struct æFc Quickdraw.p æD GDPtr = ^GDevice; GDHandle = ^GDPtr; GDevice = RECORD gdRefNum: INTEGER; {driver's unit number} gdID: INTEGER; {client ID for search procs} gdType: INTEGER; {fixed/CLUT/direct} gdITable: ITabHandle; {Handle to inverse lookup table} gdResPref: INTEGER; {preferred resolution of GDITable} gdSearchProc: SProcHndl; {search proc list head} gdCompProc: CProcHndl; {complement proc list} gdFlags: INTEGER; {grafDevice flags word} gdPMap: PixMapHandle; {describing pixMap} gdRefCon: LONGINT; {reference value} gdNextGD: GDHandle; {GDHandle Handle of next gDevice} gdRect: Rect; { device's bounds in global coordinates} gdMode: LONGINT; {device's current mode} gdCCBytes: INTEGER; {depth of expanded cursor data} gdCCDepth: INTEGER; {depth of expanded cursor data} gdCCXData: Handle; {Handle to cursor's expanded data} gdCCXMask: Handle; {Handle to cursor's expanded mask} gdReserved: LONGINT; {future use. MUST BE 0} END; æKY GrafVars æT struct æFc Quickdraw.p æD GVarPtr = ^GrafVars; GVarHandle = ^GVarPtr; GrafVars = RECORD rgbOpColor: RGBColor; {color for addPin subPin and average} rgbHiliteColor: RGBColor; {color for hiliting} pmFgColor: Handle; {palette Handle for foreground color} pmFgIndex: INTEGER; {index value for foreground} pmBkColor: Handle; {palette Handle for background color} pmBkIndex: INTEGER; {index value for background} pmFlags: INTEGER; {flags for Palette Manager} END; æKY CQDProcs æT struct æFc Quickdraw.p æD CQDProcsPtr = ^CQDProcs; CQDProcs = RECORD textProc: Ptr; lineProc: Ptr; rectProc: Ptr; rRectProc: Ptr; ovalProc: Ptr; arcProc: Ptr; polyProc: Ptr; rgnProc: Ptr; bitsProc: Ptr; commentProc: Ptr; txMeasProc: Ptr; getPicProc: Ptr; putPicProc: Ptr; opcodeProc: Ptr; {fields added to QDProcs} newProc1: Ptr; newProc2: Ptr; newProc3: Ptr; newProc4: Ptr; newProc5: Ptr; newProc6: Ptr; END; æKY CGrafPort æT struct æFc Quickdraw.p æD CGrafPtr = ^CGrafPort; CGrafPort = RECORD device: INTEGER; portPixMap: PixMapHandle; {port's pixel map} portVersion: INTEGER; {high 2 bits always set} grafVars: Handle; {Handle to more fields} chExtra: INTEGER; {character extra} pnLocHFrac: INTEGER; {pen fraction} portRect: Rect; visRgn: RgnHandle; clipRgn: RgnHandle; bkPixPat: PixPatHandle; {background pattern} rgbFgColor: RGBColor; {RGB components of fg} rgbBkColor: RGBColor; {RGB components of bk} pnLoc: Point; pnSize: Point; pnMode: INTEGER; pnPixPat: PixPatHandle; {pen's pattern} fillPixPat: PixPatHandle; {fill pattern} pnVis: INTEGER; txFont: INTEGER; txFace: Style; {txFace is unpacked byte push as short} txMode: INTEGER; txSize: INTEGER; spExtra: Fixed; fgColor: LONGINT; bkColor: LONGINT; colrBit: INTEGER; patStretch: INTEGER; picSave: Handle; rgnSave: Handle; polySave: Handle; grafProcs: CQDProcsPtr; END; æKY CWindowPtr æT typedef æFc Quickdraw.p æD CWindowPtr = CGrafPtr; æKY ReqListRec æT struct æFc Quickdraw.p æD ReqListRec = RECORD reqLSize: INTEGER; {request list size} reqLData: ARRAY [0..0] OF INTEGER; {request list data} END; æKY OpenCPicParams æT struct æFc Quickdraw.p æD OpenCPicParams = RECORD srcRect: Rect; hRes: Fixed; vRes: Fixed; version: INTEGER; reserved1: INTEGER; reserved2: LONGINT; END; æKY DeviceLoopDrawingProcPtr æT typedef æFc Quickdraw.p æD DeviceLoopDrawingProcPtr = ProcPtr; æKY qd æT struct æFc Quickdraw.p æD VAR {$PUSH} {$J+} thePort: GrafPtr; white: Pattern; black: Pattern; gray: Pattern; ltGray: Pattern; dkGray: Pattern; arrow: Cursor; screenBits: BitMap; randSeed: LONGINT; {$POP} æKY InitGraf æT Function æFc Quickdraw.p æD PROCEDURE InitGraf(globalPtr: Ptr); INLINE $A86E; æKY OpenPort æT Function æFc Quickdraw.p æD PROCEDURE OpenPort(port: GrafPtr); INLINE $A86F; æKY InitPort æT Function æFc Quickdraw.p æD PROCEDURE InitPort(port: GrafPtr); INLINE $A86D; æKY ClosePort æT Function æFc Quickdraw.p æD PROCEDURE ClosePort(port: GrafPtr); INLINE $A87D; æKY SetPort æT Function æFc Quickdraw.p æD PROCEDURE SetPort(port: GrafPtr); INLINE $A873; æKY GetPort æT Function æFc Quickdraw.p æD PROCEDURE GetPort(VAR port: GrafPtr); INLINE $A874; æKY GrafDevice æT Function æFc Quickdraw.p æD PROCEDURE GrafDevice(device: INTEGER); INLINE $A872; æKY SetPortBits æT Function æFc Quickdraw.p æD PROCEDURE SetPortBits(bm: BitMap); INLINE $A875; æKY PortSize æT Function æFc Quickdraw.p æD PROCEDURE PortSize(width: INTEGER;height: INTEGER); INLINE $A876; æKY MovePortTo æT Function æFc Quickdraw.p æD PROCEDURE MovePortTo(leftGlobal: INTEGER;topGlobal: INTEGER); INLINE $A877; æKY SetOrigin æT Function æFc Quickdraw.p æD PROCEDURE SetOrigin(h: INTEGER;v: INTEGER); INLINE $A878; æKY SetClip æT Function æFc Quickdraw.p æD PROCEDURE SetClip(rgn: RgnHandle); INLINE $A879; æKY GetClip æT Function æFc Quickdraw.p æD PROCEDURE GetClip(rgn: RgnHandle); INLINE $A87A; æKY ClipRect æT Function æFc Quickdraw.p æD PROCEDURE ClipRect(r: Rect); INLINE $A87B; æKY BackPat æT Function æFc Quickdraw.p æD PROCEDURE BackPat(pat: Pattern); INLINE $A87C; æKY InitCursor æT Function æFc Quickdraw.p æD PROCEDURE InitCursor; INLINE $A850; æKY SetCursor æT Function æFc Quickdraw.p æD PROCEDURE SetCursor(crsr: Cursor); INLINE $A851; æKY HideCursor æT Function æFc Quickdraw.p æD PROCEDURE HideCursor; INLINE $A852; æKY ShowCursor æT Function æFc Quickdraw.p æD PROCEDURE ShowCursor; INLINE $A853; æKY ObscureCursor æT Function æFc Quickdraw.p æD PROCEDURE ObscureCursor; INLINE $A856; æKY HidePen æT Function æFc Quickdraw.p æD PROCEDURE HidePen; INLINE $A896; æKY ShowPen æT Function æFc Quickdraw.p æD PROCEDURE ShowPen; INLINE $A897; æKY GetPen æT Function æFc Quickdraw.p æD PROCEDURE GetPen(VAR pt: Point); INLINE $A89A; æKY GetPenState æT Function æFc Quickdraw.p æD PROCEDURE GetPenState(VAR pnState: PenState); INLINE $A898; æKY SetPenState æT Function æFc Quickdraw.p æD PROCEDURE SetPenState(pnState: PenState); INLINE $A899; æKY PenSize æT Function æFc Quickdraw.p æD PROCEDURE PenSize(width: INTEGER;height: INTEGER); INLINE $A89B; æKY PenMode æT Function æFc Quickdraw.p æD PROCEDURE PenMode(mode: INTEGER); INLINE $A89C; æKY PenPat æT Function æFc Quickdraw.p æD PROCEDURE PenPat(pat: Pattern); INLINE $A89D; æKY PenNormal æT Function æFc Quickdraw.p æD PROCEDURE PenNormal; INLINE $A89E; æKY MoveTo æT Function æFc Quickdraw.p æD PROCEDURE MoveTo(h: INTEGER;v: INTEGER); INLINE $A893; æKY Move æT Function æFc Quickdraw.p æD PROCEDURE Move(dh: INTEGER;dv: INTEGER); INLINE $A894; æKY LineTo æT Function æFc Quickdraw.p æD PROCEDURE LineTo(h: INTEGER;v: INTEGER); INLINE $A891; æKY Line æT Function æFc Quickdraw.p æD PROCEDURE Line(dh: INTEGER;dv: INTEGER); INLINE $A892; æKY TextFont æT Function æFc Quickdraw.p æD PROCEDURE TextFont(font: INTEGER); INLINE $A887; æKY TextFace æT Function æFc Quickdraw.p æD PROCEDURE TextFace(face: Style); INLINE $A888; æKY TextMode æT Function æFc Quickdraw.p æD PROCEDURE TextMode(mode: INTEGER); INLINE $A889; æKY TextSize æT Function æFc Quickdraw.p æD PROCEDURE TextSize(size: INTEGER); INLINE $A88A; æKY SpaceExtra æT Function æFc Quickdraw.p æD PROCEDURE SpaceExtra(extra: Fixed); INLINE $A88E; æKY DrawChar æT Function æFc Quickdraw.p æD PROCEDURE DrawChar(ch: CHAR); INLINE $A883; æKY DrawString æT Function æFc Quickdraw.p æD PROCEDURE DrawString(s: Str255); INLINE $A884; æKY DrawText æT Function æFc Quickdraw.p æD PROCEDURE DrawText(textBuf: Ptr;firstByte: INTEGER;byteCount: INTEGER); INLINE $A885; æKY CharWidth æT Function æFc Quickdraw.p æD FUNCTION CharWidth(ch: CHAR): INTEGER; INLINE $A88D; æKY StringWidth æT Function æFc Quickdraw.p æD FUNCTION StringWidth(s: Str255): INTEGER; INLINE $A88C; æKY TextWidth æT Function æFc Quickdraw.p æD FUNCTION TextWidth(textBuf: Ptr;firstByte: INTEGER;byteCount: INTEGER): INTEGER; INLINE $A886; æKY MeasureText æT Function æFc Quickdraw.p æD PROCEDURE MeasureText(count: INTEGER;textAddr: Ptr;charLocs: Ptr); INLINE $A837; æKY GetFontInfo æT Function æFc Quickdraw.p æD PROCEDURE GetFontInfo(VAR info: FontInfo); INLINE $A88B; æKY ForeColor æT Function æFc Quickdraw.p æD PROCEDURE ForeColor(color: LONGINT); INLINE $A862; æKY BackColor æT Function æFc Quickdraw.p æD PROCEDURE BackColor(color: LONGINT); INLINE $A863; æKY ColorBit æT Function æFc Quickdraw.p æD PROCEDURE ColorBit(whichBit: INTEGER); INLINE $A864; æKY SetRect æT Function æFc Quickdraw.p æD PROCEDURE SetRect(VAR r: Rect;left: INTEGER;top: INTEGER;right: INTEGER; bottom: INTEGER); INLINE $A8A7; æKY OffsetRect æT Function æFc Quickdraw.p æD PROCEDURE OffsetRect(VAR r: Rect;dh: INTEGER;dv: INTEGER); INLINE $A8A8; æKY InsetRect æT Function æFc Quickdraw.p æD PROCEDURE InsetRect(VAR r: Rect;dh: INTEGER;dv: INTEGER); INLINE $A8A9; æKY SectRect æT Function æFc Quickdraw.p æD FUNCTION SectRect(src1: Rect;src2: Rect;VAR dstRect: Rect): BOOLEAN; INLINE $A8AA; æKY UnionRect æT Function æFc Quickdraw.p æD PROCEDURE UnionRect(src1: Rect;src2: Rect;VAR dstRect: Rect); INLINE $A8AB; æKY EqualRect æT Function æFc Quickdraw.p æD FUNCTION EqualRect(rect1: Rect;rect2: Rect): BOOLEAN; INLINE $A8A6; æKY EmptyRect æT Function æFc Quickdraw.p æD FUNCTION EmptyRect(r: Rect): BOOLEAN; INLINE $A8AE; æKY FrameRect æT Function æFc Quickdraw.p æD PROCEDURE FrameRect(r: Rect); INLINE $A8A1; æKY PaintRect æT Function æFc Quickdraw.p æD PROCEDURE PaintRect(r: Rect); INLINE $A8A2; æKY EraseRect æT Function æFc Quickdraw.p æD PROCEDURE EraseRect(r: Rect); INLINE $A8A3; æKY InvertRect æT Function æFc Quickdraw.p æD PROCEDURE InvertRect(r: Rect); INLINE $A8A4; æKY FillRect æT Function æFc Quickdraw.p æD PROCEDURE FillRect(r: Rect;pat: Pattern); INLINE $A8A5; æKY FrameOval æT Function æFc Quickdraw.p æD PROCEDURE FrameOval(r: Rect); INLINE $A8B7; æKY PaintOval æT Function æFc Quickdraw.p æD PROCEDURE PaintOval(r: Rect); INLINE $A8B8; æKY EraseOval æT Function æFc Quickdraw.p æD PROCEDURE EraseOval(r: Rect); INLINE $A8B9; æKY InvertOval æT Function æFc Quickdraw.p æD PROCEDURE InvertOval(r: Rect); INLINE $A8BA; æKY FillOval æT Function æFc Quickdraw.p æD PROCEDURE FillOval(r: Rect;pat: Pattern); INLINE $A8BB; æKY FrameRoundRect æT Function æFc Quickdraw.p æD PROCEDURE FrameRoundRect(r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER); INLINE $A8B0; æKY PaintRoundRect æT Function æFc Quickdraw.p æD PROCEDURE PaintRoundRect(r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER); INLINE $A8B1; æKY EraseRoundRect æT Function æFc Quickdraw.p æD PROCEDURE EraseRoundRect(r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER); INLINE $A8B2; æKY InvertRoundRect æT Function æFc Quickdraw.p æD PROCEDURE InvertRoundRect(r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER); INLINE $A8B3; æKY FillRoundRect æT Function æFc Quickdraw.p æD PROCEDURE FillRoundRect(r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER; pat: Pattern); INLINE $A8B4; æKY FrameArc æT Function æFc Quickdraw.p æD PROCEDURE FrameArc(r: Rect;startAngle: INTEGER;arcAngle: INTEGER); INLINE $A8BE; æKY PaintArc æT Function æFc Quickdraw.p æD PROCEDURE PaintArc(r: Rect;startAngle: INTEGER;arcAngle: INTEGER); INLINE $A8BF; æKY EraseArc æT Function æFc Quickdraw.p æD PROCEDURE EraseArc(r: Rect;startAngle: INTEGER;arcAngle: INTEGER); INLINE $A8C0; æKY InvertArc æT Function æFc Quickdraw.p æD PROCEDURE InvertArc(r: Rect;startAngle: INTEGER;arcAngle: INTEGER); INLINE $A8C1; æKY FillArc æT Function æFc Quickdraw.p æD PROCEDURE FillArc(r: Rect;startAngle: INTEGER;arcAngle: INTEGER;pat: Pattern); INLINE $A8C2; æKY NewRgn æT Function æFc Quickdraw.p æD FUNCTION NewRgn: RgnHandle; INLINE $A8D8; æKY OpenRgn æT Function æFc Quickdraw.p æD PROCEDURE OpenRgn; INLINE $A8DA; æKY CloseRgn æT Function æFc Quickdraw.p æD PROCEDURE CloseRgn(dstRgn: RgnHandle); INLINE $A8DB; æKY BitMapToRegionGlue æT Function æFc Quickdraw.p æD FUNCTION BitMapToRegionGlue(region: RgnHandle;bMap: BitMap): OSErr; æKY BitMapToRegion æT Function æFc Quickdraw.p æD FUNCTION BitMapToRegion(region: RgnHandle;bMap: BitMap): OSErr; INLINE $A8D7; æKY DisposeRgn æT Function æFc Quickdraw.p æD PROCEDURE DisposeRgn(rgn: RgnHandle); INLINE $A8D9; æKY CopyRgn æT Function æFc Quickdraw.p æD PROCEDURE CopyRgn(srcRgn: RgnHandle;dstRgn: RgnHandle); INLINE $A8DC; æKY SetEmptyRgn æT Function æFc Quickdraw.p æD PROCEDURE SetEmptyRgn(rgn: RgnHandle); INLINE $A8DD; æKY SetRectRgn æT Function æFc Quickdraw.p æD PROCEDURE SetRectRgn(rgn: RgnHandle;left: INTEGER;top: INTEGER;right: INTEGER; bottom: INTEGER); INLINE $A8DE; æKY RectRgn æT Function æFc Quickdraw.p æD PROCEDURE RectRgn(rgn: RgnHandle;r: Rect); INLINE $A8DF; æKY OffsetRgn æT Function æFc Quickdraw.p æD PROCEDURE OffsetRgn(rgn: RgnHandle;dh: INTEGER;dv: INTEGER); INLINE $A8E0; æKY InsetRgn æT Function æFc Quickdraw.p æD PROCEDURE InsetRgn(rgn: RgnHandle;dh: INTEGER;dv: INTEGER); INLINE $A8E1; æKY SectRgn æT Function æFc Quickdraw.p æD PROCEDURE SectRgn(srcRgnA: RgnHandle;srcRgnB: RgnHandle;dstRgn: RgnHandle); INLINE $A8E4; æKY UnionRgn æT Function æFc Quickdraw.p æD PROCEDURE UnionRgn(srcRgnA: RgnHandle;srcRgnB: RgnHandle;dstRgn: RgnHandle); INLINE $A8E5; æKY DiffRgn æT Function æFc Quickdraw.p æD PROCEDURE DiffRgn(srcRgnA: RgnHandle;srcRgnB: RgnHandle;dstRgn: RgnHandle); INLINE $A8E6; æKY XorRgn æT Function æFc Quickdraw.p æD PROCEDURE XorRgn(srcRgnA: RgnHandle;srcRgnB: RgnHandle;dstRgn: RgnHandle); INLINE $A8E7; æKY RectInRgn æT Function æFc Quickdraw.p æD FUNCTION RectInRgn(r: Rect;rgn: RgnHandle): BOOLEAN; INLINE $A8E9; æKY EqualRgn æT Function æFc Quickdraw.p æD FUNCTION EqualRgn(rgnA: RgnHandle;rgnB: RgnHandle): BOOLEAN; INLINE $A8E3; æKY EmptyRgn æT Function æFc Quickdraw.p æD FUNCTION EmptyRgn(rgn: RgnHandle): BOOLEAN; INLINE $A8E2; æKY FrameRgn æT Function æFc Quickdraw.p æD PROCEDURE FrameRgn(rgn: RgnHandle); INLINE $A8D2; æKY PaintRgn æT Function æFc Quickdraw.p æD PROCEDURE PaintRgn(rgn: RgnHandle); INLINE $A8D3; æKY EraseRgn æT Function æFc Quickdraw.p æD PROCEDURE EraseRgn(rgn: RgnHandle); INLINE $A8D4; æKY InvertRgn æT Function æFc Quickdraw.p æD PROCEDURE InvertRgn(rgn: RgnHandle); INLINE $A8D5; æKY FillRgn æT Function æFc Quickdraw.p æD PROCEDURE FillRgn(rgn: RgnHandle;pat: Pattern); INLINE $A8D6; æKY ScrollRect æT Function æFc Quickdraw.p æD PROCEDURE ScrollRect(r: Rect;dh: INTEGER;dv: INTEGER;updateRgn: RgnHandle); INLINE $A8EF; æKY CopyBits æT Function æFc Quickdraw.p æD PROCEDURE CopyBits(srcBits: BitMap;dstBits: BitMap;srcRect: Rect;dstRect: Rect; mode: INTEGER;maskRgn: RgnHandle); INLINE $A8EC; æKY SeedFill æT Function æFc Quickdraw.p æD PROCEDURE SeedFill(srcPtr: Ptr;dstPtr: Ptr;srcRow: INTEGER;dstRow: INTEGER; height: INTEGER;words: INTEGER;seedH: INTEGER;seedV: INTEGER); INLINE $A839; æKY CalcMask æT Function æFc Quickdraw.p æD PROCEDURE CalcMask(srcPtr: Ptr;dstPtr: Ptr;srcRow: INTEGER;dstRow: INTEGER; height: INTEGER;words: INTEGER); INLINE $A838; æKY CopyMask æT Function æFc Quickdraw.p æD PROCEDURE CopyMask(srcBits: BitMap;maskBits: BitMap;dstBits: BitMap;srcRect: Rect; maskRect: Rect;dstRect: Rect); INLINE $A817; æKY OpenPicture æT Function æFc Quickdraw.p æD FUNCTION OpenPicture(picFrame: Rect): PicHandle; INLINE $A8F3; æKY PicComment æT Function æFc Quickdraw.p æD PROCEDURE PicComment(kind: INTEGER;dataSize: INTEGER;dataHandle: Handle); INLINE $A8F2; æKY ClosePicture æT Function æFc Quickdraw.p æD PROCEDURE ClosePicture; INLINE $A8F4; æKY DrawPicture æT Function æFc Quickdraw.p æD PROCEDURE DrawPicture(myPicture: PicHandle;dstRect: Rect); INLINE $A8F6; æKY KillPicture æT Function æFc Quickdraw.p æD PROCEDURE KillPicture(myPicture: PicHandle); INLINE $A8F5; æKY OpenPoly æT Function æFc Quickdraw.p æD FUNCTION OpenPoly: PolyHandle; INLINE $A8CB; æKY ClosePoly æT Function æFc Quickdraw.p æD PROCEDURE ClosePoly; INLINE $A8CC; æKY KillPoly æT Function æFc Quickdraw.p æD PROCEDURE KillPoly(poly: PolyHandle); INLINE $A8CD; æKY OffsetPoly æT Function æFc Quickdraw.p æD PROCEDURE OffsetPoly(poly: PolyHandle;dh: INTEGER;dv: INTEGER); INLINE $A8CE; æKY FramePoly æT Function æFc Quickdraw.p æD PROCEDURE FramePoly(poly: PolyHandle); INLINE $A8C6; æKY PaintPoly æT Function æFc Quickdraw.p æD PROCEDURE PaintPoly(poly: PolyHandle); INLINE $A8C7; æKY ErasePoly æT Function æFc Quickdraw.p æD PROCEDURE ErasePoly(poly: PolyHandle); INLINE $A8C8; æKY InvertPoly æT Function æFc Quickdraw.p æD PROCEDURE InvertPoly(poly: PolyHandle); INLINE $A8C9; æKY FillPoly æT Function æFc Quickdraw.p æD PROCEDURE FillPoly(poly: PolyHandle;pat: Pattern); INLINE $A8CA; æKY SetPt æT Function æFc Quickdraw.p æD PROCEDURE SetPt(VAR pt: Point;h: INTEGER;v: INTEGER); INLINE $A880; æKY LocalToGlobal æT Function æFc Quickdraw.p æD PROCEDURE LocalToGlobal(VAR pt: Point); INLINE $A870; æKY GlobalToLocal æT Function æFc Quickdraw.p æD PROCEDURE GlobalToLocal(VAR pt: Point); INLINE $A871; æKY Random æT Function æFc Quickdraw.p æD FUNCTION Random: INTEGER; INLINE $A861; æKY StuffHex æT Function æFc Quickdraw.p æD PROCEDURE StuffHex(thingPtr: Ptr;s: Str255); INLINE $A866; æKY GetPixel æT Function æFc Quickdraw.p æD FUNCTION GetPixel(h: INTEGER;v: INTEGER): BOOLEAN; INLINE $A865; æKY ScalePt æT Function æFc Quickdraw.p æD PROCEDURE ScalePt(VAR pt: Point;srcRect: Rect;dstRect: Rect); INLINE $A8F8; æKY MapPt æT Function æFc Quickdraw.p æD PROCEDURE MapPt(VAR pt: Point;srcRect: Rect;dstRect: Rect); INLINE $A8F9; æKY MapRect æT Function æFc Quickdraw.p æD PROCEDURE MapRect(VAR r: Rect;srcRect: Rect;dstRect: Rect); INLINE $A8FA; æKY MapRgn æT Function æFc Quickdraw.p æD PROCEDURE MapRgn(rgn: RgnHandle;srcRect: Rect;dstRect: Rect); INLINE $A8FB; æKY MapPoly æT Function æFc Quickdraw.p æD PROCEDURE MapPoly(poly: PolyHandle;srcRect: Rect;dstRect: Rect); INLINE $A8FC; æKY SetStdProcs æT Function æFc Quickdraw.p æD PROCEDURE SetStdProcs(VAR procs: QDProcs); INLINE $A8EA; æKY StdRect æT Function æFc Quickdraw.p æD PROCEDURE StdRect(verb: GrafVerb;r: Rect); INLINE $A8A0; æKY StdRRect æT Function æFc Quickdraw.p æD PROCEDURE StdRRect(verb: GrafVerb;r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER); INLINE $A8AF; æKY StdOval æT Function æFc Quickdraw.p æD PROCEDURE StdOval(verb: GrafVerb;r: Rect); INLINE $A8B6; æKY StdArc æT Function æFc Quickdraw.p æD PROCEDURE StdArc(verb: GrafVerb;r: Rect;startAngle: INTEGER;arcAngle: INTEGER); INLINE $A8BD; æKY StdPoly æT Function æFc Quickdraw.p æD PROCEDURE StdPoly(verb: GrafVerb;poly: PolyHandle); INLINE $A8C5; æKY StdRgn æT Function æFc Quickdraw.p æD PROCEDURE StdRgn(verb: GrafVerb;rgn: RgnHandle); INLINE $A8D1; æKY StdBits æT Function æFc Quickdraw.p æD PROCEDURE StdBits(VAR srcBits: BitMap;VAR srcRect: Rect;dstRect: Rect;mode: INTEGER; maskRgn: RgnHandle); INLINE $A8EB; æKY StdComment æT Function æFc Quickdraw.p æD PROCEDURE StdComment(kind: INTEGER;dataSize: INTEGER;dataHandle: Handle); INLINE $A8F1; æKY StdTxMeas æT Function æFc Quickdraw.p æD FUNCTION StdTxMeas(byteCount: INTEGER;textAddr: Ptr;VAR numer: Point;VAR denom: Point; VAR info: FontInfo): INTEGER; INLINE $A8ED; æKY StdGetPic æT Function æFc Quickdraw.p æD PROCEDURE StdGetPic(dataPtr: Ptr;byteCount: INTEGER); INLINE $A8EE; æKY StdPutPic æT Function æFc Quickdraw.p æD PROCEDURE StdPutPic(dataPtr: Ptr;byteCount: INTEGER); INLINE $A8F0; æKY AddPt æT Function æFc Quickdraw.p æD PROCEDURE AddPt(src: Point;VAR dst: Point); INLINE $A87E; æKY EqualPt æT Function æFc Quickdraw.p æD FUNCTION EqualPt(pt1: Point;pt2: Point): BOOLEAN; INLINE $A881; æKY PtInRect æT Function æFc Quickdraw.p æD FUNCTION PtInRect(pt: Point;r: Rect): BOOLEAN; INLINE $A8AD; æKY Pt2Rect æT Function æFc Quickdraw.p æD PROCEDURE Pt2Rect(pt1: Point;pt2: Point;VAR dstRect: Rect); INLINE $A8AC; æKY PtToAngle æT Function æFc Quickdraw.p æD PROCEDURE PtToAngle(r: Rect;pt: Point;VAR angle: INTEGER); INLINE $A8C3; æKY PtInRgn æT Function æFc Quickdraw.p æD FUNCTION PtInRgn(pt: Point;rgn: RgnHandle): BOOLEAN; INLINE $A8E8; æKY StdText æT Function æFc Quickdraw.p æD PROCEDURE StdText(count: INTEGER;textAddr: Ptr;numer: Point;denom: Point); INLINE $A882; æKY StdLine æT Function æFc Quickdraw.p æD PROCEDURE StdLine(newPt: Point); INLINE $A890; æKY OpenCPort æT Function æFc Quickdraw.p æD PROCEDURE OpenCPort(port: CGrafPtr); INLINE $AA00; æKY InitCPort æT Function æFc Quickdraw.p æD PROCEDURE InitCPort(port: CGrafPtr); INLINE $AA01; æKY CloseCPort æT Function æFc Quickdraw.p æD PROCEDURE CloseCPort(port: CGrafPtr); INLINE $A87D; æKY NewPixMap æT Function æFc Quickdraw.p æD FUNCTION NewPixMap: PixMapHandle; INLINE $AA03; æKY DisposPixMap æT Function æFc Quickdraw.p æD PROCEDURE DisposPixMap(pm: PixMapHandle); INLINE $AA04; æKY DisposePixMap æT Function æFc Quickdraw.p æD PROCEDURE DisposePixMap(pm: PixMapHandle); INLINE $AA04; æKY CopyPixMap æT Function æFc Quickdraw.p æD PROCEDURE CopyPixMap(srcPM: PixMapHandle;dstPM: PixMapHandle); INLINE $AA05; æKY NewPixPat æT Function æFc Quickdraw.p æD FUNCTION NewPixPat: PixPatHandle; INLINE $AA07; æKY DisposPixPat æT Function æFc Quickdraw.p æD PROCEDURE DisposPixPat(pp: PixPatHandle); INLINE $AA08; æKY DisposePixPat æT Function æFc Quickdraw.p æD PROCEDURE DisposePixPat(pp: PixPatHandle); INLINE $AA08; æKY CopyPixPat æT Function æFc Quickdraw.p æD PROCEDURE CopyPixPat(srcPP: PixPatHandle;dstPP: PixPatHandle); INLINE $AA09; æKY PenPixPat æT Function æFc Quickdraw.p æD PROCEDURE PenPixPat(pp: PixPatHandle); INLINE $AA0A; æKY BackPixPat æT Function æFc Quickdraw.p æD PROCEDURE BackPixPat(pp: PixPatHandle); INLINE $AA0B; æKY GetPixPat æT Function æFc Quickdraw.p æD FUNCTION GetPixPat(patID: INTEGER): PixPatHandle; INLINE $AA0C; æKY MakeRGBPat æT Function æFc Quickdraw.p æD PROCEDURE MakeRGBPat(pp: PixPatHandle;myColor: RGBColor); INLINE $AA0D; æKY FillCRect æT Function æFc Quickdraw.p æD PROCEDURE FillCRect(r: Rect;pp: PixPatHandle); INLINE $AA0E; æKY FillCOval æT Function æFc Quickdraw.p æD PROCEDURE FillCOval(r: Rect;pp: PixPatHandle); INLINE $AA0F; æKY FillCRoundRect æT Function æFc Quickdraw.p æD PROCEDURE FillCRoundRect(r: Rect;ovalWidth: INTEGER;ovalHeight: INTEGER; pp: PixPatHandle); INLINE $AA10; æKY FillCArc æT Function æFc Quickdraw.p æD PROCEDURE FillCArc(r: Rect;startAngle: INTEGER;arcAngle: INTEGER;pp: PixPatHandle); INLINE $AA11; æKY FillCRgn æT Function æFc Quickdraw.p æD PROCEDURE FillCRgn(rgn: RgnHandle;pp: PixPatHandle); INLINE $AA12; æKY FillCPoly æT Function æFc Quickdraw.p æD PROCEDURE FillCPoly(poly: PolyHandle;pp: PixPatHandle); INLINE $AA13; æKY RGBForeColor æT Function æFc Quickdraw.p æD PROCEDURE RGBForeColor(color: RGBColor); INLINE $AA14; æKY RGBBackColor æT Function æFc Quickdraw.p æD PROCEDURE RGBBackColor(color: RGBColor); INLINE $AA15; æKY SetCPixel æT Function æFc Quickdraw.p æD PROCEDURE SetCPixel(h: INTEGER;v: INTEGER;cPix: RGBColor); INLINE $AA16; æKY SetPortPix æT Function æFc Quickdraw.p æD PROCEDURE SetPortPix(pm: PixMapHandle); INLINE $AA06; æKY GetCPixel æT Function æFc Quickdraw.p æD PROCEDURE GetCPixel(h: INTEGER;v: INTEGER;VAR cPix: RGBColor); INLINE $AA17; æKY GetForeColor æT Function æFc Quickdraw.p æD PROCEDURE GetForeColor(VAR color: RGBColor); INLINE $AA19; æKY GetBackColor æT Function æFc Quickdraw.p æD PROCEDURE GetBackColor(VAR color: RGBColor); INLINE $AA1A; æKY SeedCFill æT Function æFc Quickdraw.p æD PROCEDURE SeedCFill(srcBits: BitMap;dstBits: BitMap;srcRect: Rect;dstRect: Rect; seedH: INTEGER;seedV: INTEGER;matchProc: ProcPtr;matchData: LONGINT); INLINE $AA50; æKY CalcCMask æT Function æFc Quickdraw.p æD PROCEDURE CalcCMask(srcBits: BitMap;dstBits: BitMap;srcRect: Rect;dstRect: Rect; seedRGB: RGBColor;matchProc: ProcPtr;matchData: LONGINT); INLINE $AA4F; æKY OpenCPicture æT Function æFc Quickdraw.p æD FUNCTION OpenCPicture(newHeader: OpenCPicParams): PicHandle; INLINE $AA20; æKY OpColor æT Function æFc Quickdraw.p æD PROCEDURE OpColor(color: RGBColor); INLINE $AA21; æKY HiliteColor æT Function æFc Quickdraw.p æD PROCEDURE HiliteColor(color: RGBColor); INLINE $AA22; æKY DisposCTable æT Function æFc Quickdraw.p æD PROCEDURE DisposCTable(cTable: CTabHandle); INLINE $AA24; æKY DisposeCTable æT Function æFc Quickdraw.p æD PROCEDURE DisposeCTable(cTable: CTabHandle); INLINE $AA24; æKY GetCTable æT Function æFc Quickdraw.p æD FUNCTION GetCTable(ctID: INTEGER): CTabHandle; INLINE $AA18; æKY GetCCursor æT Function æFc Quickdraw.p æD FUNCTION GetCCursor(crsrID: INTEGER): CCrsrHandle; INLINE $AA1B; æKY SetCCursor æT Function æFc Quickdraw.p æD PROCEDURE SetCCursor(cCrsr: CCrsrHandle); INLINE $AA1C; æKY AllocCursor æT Function æFc Quickdraw.p æD PROCEDURE AllocCursor; INLINE $AA1D; æKY DisposCCursor æT Function æFc Quickdraw.p æD PROCEDURE DisposCCursor(cCrsr: CCrsrHandle); INLINE $AA26; æKY DisposeCCursor æT Function æFc Quickdraw.p æD PROCEDURE DisposeCCursor(cCrsr: CCrsrHandle); INLINE $AA26; æKY GetCIcon æT Function æFc Quickdraw.p æD FUNCTION GetCIcon(iconID: INTEGER): CIconHandle; INLINE $AA1E; æKY PlotCIcon æT Function æFc Quickdraw.p æD PROCEDURE PlotCIcon(theRect: Rect;theIcon: CIconHandle); INLINE $AA1F; æKY DisposCIcon æT Function æFc Quickdraw.p æD PROCEDURE DisposCIcon(theIcon: CIconHandle); INLINE $AA25; æKY DisposeCIcon æT Function æFc Quickdraw.p æD PROCEDURE DisposeCIcon(theIcon: CIconHandle); INLINE $AA25; æKY SetStdCProcs æT Function æFc Quickdraw.p æD PROCEDURE SetStdCProcs(VAR procs: CQDProcs); INLINE $AA4E; æKY CharExtra æT Function æFc Quickdraw.p æD PROCEDURE CharExtra(extra: Fixed); INLINE $AA23; æKY GetMaxDevice æT Function æFc Quickdraw.p æD FUNCTION GetMaxDevice(globalRect: Rect): GDHandle; INLINE $AA27; æKY GetCTSeed æT Function æFc Quickdraw.p æD FUNCTION GetCTSeed: LONGINT; INLINE $AA28; æKY GetDeviceList æT Function æFc Quickdraw.p æD FUNCTION GetDeviceList: GDHandle; INLINE $AA29; æKY GetMainDevice æT Function æFc Quickdraw.p æD FUNCTION GetMainDevice: GDHandle; INLINE $AA2A; æKY GetNextDevice æT Function æFc Quickdraw.p æD FUNCTION GetNextDevice(curDevice: GDHandle): GDHandle; INLINE $AA2B; æKY TestDeviceAttribute æT Function æFc Quickdraw.p æD FUNCTION TestDeviceAttribute(gdh: GDHandle;attribute: INTEGER): BOOLEAN; INLINE $AA2C; æKY SetDeviceAttribute æT Function æFc Quickdraw.p æD PROCEDURE SetDeviceAttribute(gdh: GDHandle;attribute: INTEGER;value: BOOLEAN); INLINE $AA2D; æKY InitGDevice æT Function æFc Quickdraw.p æD PROCEDURE InitGDevice(qdRefNum: INTEGER;mode: LONGINT;gdh: GDHandle); INLINE $AA2E; æKY NewGDevice æT Function æFc Quickdraw.p æD FUNCTION NewGDevice(refNum: INTEGER;mode: LONGINT): GDHandle; INLINE $AA2F; æKY DisposGDevice æT Function æFc Quickdraw.p æD PROCEDURE DisposGDevice(gdh: GDHandle); INLINE $AA30; æKY DisposeGDevice æT Function æFc Quickdraw.p æD PROCEDURE DisposeGDevice(gdh: GDHandle); INLINE $AA30; æKY SetGDevice æT Function æFc Quickdraw.p æD PROCEDURE SetGDevice(gd: GDHandle); INLINE $AA31; æKY GetGDevice æT Function æFc Quickdraw.p æD FUNCTION GetGDevice: GDHandle; INLINE $AA32; æKY Color2Index æT Function æFc Quickdraw.p æD FUNCTION Color2Index(myColor: RGBColor): LONGINT; INLINE $AA33; æKY Index2Color æT Function æFc Quickdraw.p æD PROCEDURE Index2Color(index: LONGINT;VAR aColor: RGBColor); INLINE $AA34; æKY InvertColor æT Function æFc Quickdraw.p æD PROCEDURE InvertColor(VAR myColor: RGBColor); INLINE $AA35; æKY RealColor æT Function æFc Quickdraw.p æD FUNCTION RealColor(color: RGBColor): BOOLEAN; INLINE $AA36; æKY GetSubTable æT Function æFc Quickdraw.p æD PROCEDURE GetSubTable(myColors: CTabHandle;iTabRes: INTEGER;targetTbl: CTabHandle); INLINE $AA37; æKY MakeITable æT Function æFc Quickdraw.p æD PROCEDURE MakeITable(cTabH: CTabHandle;iTabH: ITabHandle;res: INTEGER); INLINE $AA39; æKY AddSearch æT Function æFc Quickdraw.p æD PROCEDURE AddSearch(searchProc: ProcPtr); INLINE $AA3A; æKY AddComp æT Function æFc Quickdraw.p æD PROCEDURE AddComp(compProc: ProcPtr); INLINE $AA3B; æKY DelSearch æT Function æFc Quickdraw.p æD PROCEDURE DelSearch(searchProc: ProcPtr); INLINE $AA4C; æKY DelComp æT Function æFc Quickdraw.p æD PROCEDURE DelComp(compProc: ProcPtr); INLINE $AA4D; æKY SubPt æT Function æFc Quickdraw.p æD PROCEDURE SubPt(src: Point;VAR dst: Point); INLINE $A87F; æKY SetClientID æT Function æFc Quickdraw.p æD PROCEDURE SetClientID(id: INTEGER); INLINE $AA3C; æKY ProtectEntry æT Function æFc Quickdraw.p æD PROCEDURE ProtectEntry(index: INTEGER;protect: BOOLEAN); INLINE $AA3D; æKY ReserveEntry æT Function æFc Quickdraw.p æD PROCEDURE ReserveEntry(index: INTEGER;reserve: BOOLEAN); INLINE $AA3E; æKY SetEntries æT Function æFc Quickdraw.p æD PROCEDURE SetEntries(start: INTEGER;count: INTEGER;aTable: CSpecArray); INLINE $AA3F; æKY SaveEntries æT Function æFc Quickdraw.p æD PROCEDURE SaveEntries(srcTable: CTabHandle;resultTable: CTabHandle;VAR selection: ReqListRec); INLINE $AA49; æKY RestoreEntries æT Function æFc Quickdraw.p æD PROCEDURE RestoreEntries(srcTable: CTabHandle;dstTable: CTabHandle;VAR selection: ReqListRec); INLINE $AA4A; æKY QDError æT Function æFc Quickdraw.p æD FUNCTION QDError: INTEGER; INLINE $AA40; æKY CopyDeepMask æT Function æFc Quickdraw.p æD PROCEDURE CopyDeepMask(srcBits: BitMap;maskBits: BitMap;dstBits: BitMap; srcRect: Rect;maskRect: Rect;dstRect: Rect;mode: INTEGER;maskRgn: RgnHandle); INLINE $AA51; æKY DeviceLoop æT Function æFc Quickdraw.p æD PROCEDURE DeviceLoop(drawingRgn: RgnHandle;drawingProc: DeviceLoopDrawingProcPtr; userData: LONGINT;flags: DeviceLoopFlags); INLINE $ABCA; æKY GetMaskTable æT Function æFc Quickdraw.p æD FUNCTION GetMaskTable: Ptr; INLINE $A836,$2E88; æKY Resources.p æKL AddResource ChangedResource CloseResFile Count1Resources Count1Types CountResources CountTypes CreateResFile CurResFile DetachResource FSpCreateResFile FSpOpenResFile Get1IndResource Get1IndType Get1NamedResource Get1Resource GetIndResource GetIndType GetNamedResource GetResAttrs GetResFileAttrs GetResInfo GetResource HCreateResFile HomeResFile HOpenResFile InitResources LoadResource MaxSizeRsrc OpenResFile OpenRFPerm ReadPartialResource ReleaseResource ResError RGetResource RmveResource RsrcMapEntry RsrcZoneInit SetResAttrs SetResFileAttrs SetResInfo SetResLoad SetResourceSize SetResPurge SizeResource Unique1ID UniqueID UpdateResFile UseResFile WritePartialResource WriteResource mapChanged mapCompact mapFalse mapReadOnly mapTrue resChanged resLocked resPreload resProtected resPurgeable resSysHeap æKY resSysHeap æT constant æFc Resources.p æD resSysHeap = 64; {System or application heap?} æKY resPurgeable æT constant æFc Resources.p æD resPurgeable = 32; {Purgeable resource?} æKY resLocked æT constant æFc Resources.p æD resLocked = 16; {Load it in locked?} æKY resProtected æT constant æFc Resources.p æD resProtected = 8; {Protected?} æKY resPreload æT constant æFc Resources.p æD resPreload = 4; {Load in on OpenResFile?} æKY resChanged æT constant æFc Resources.p æD resChanged = 2; {Resource changed?} æKY mapReadOnly æT constant æFc Resources.p æD mapReadOnly = 128; {Resource file read-only} æKY mapCompact æT constant æFc Resources.p æD mapCompact = 64; {Compact resource file} æKY mapChanged æT constant æFc Resources.p æD mapChanged = 32; {Write map out at updat} æKY mapTrue æT constant æFc Resources.p æD mapTrue = $FFFF; {insert ROM map w/ TmpResLoad = TRUE.} æKY mapFalse æT constant æFc Resources.p æD mapFalse = $FF00; {insert ROM map w/ TmpResLoad = FALSE.} æKY InitResources æT Function æFc Resources.p æD FUNCTION InitResources: INTEGER; INLINE $A995; æKY RsrcZoneInit æT Function æFc Resources.p æD PROCEDURE RsrcZoneInit; INLINE $A996; æKY CloseResFile æT Function æFc Resources.p æD PROCEDURE CloseResFile(refNum: INTEGER); INLINE $A99A; æKY ResError æT Function æFc Resources.p æD FUNCTION ResError: INTEGER; INLINE $A9AF; æKY CurResFile æT Function æFc Resources.p æD FUNCTION CurResFile: INTEGER; INLINE $A994; æKY HomeResFile æT Function æFc Resources.p æD FUNCTION HomeResFile(theResource: Handle): INTEGER; INLINE $A9A4; æKY CreateResFile æT Function æFc Resources.p æD PROCEDURE CreateResFile(fileName: Str255); INLINE $A9B1; æKY OpenResFile æT Function æFc Resources.p æD FUNCTION OpenResFile(fileName: Str255): INTEGER; INLINE $A997; æKY UseResFile æT Function æFc Resources.p æD PROCEDURE UseResFile(refNum: INTEGER); INLINE $A998; æKY CountTypes æT Function æFc Resources.p æD FUNCTION CountTypes: INTEGER; INLINE $A99E; æKY Count1Types æT Function æFc Resources.p æD FUNCTION Count1Types: INTEGER; INLINE $A81C; æKY GetIndType æT Function æFc Resources.p æD PROCEDURE GetIndType(VAR theType: ResType;index: INTEGER); INLINE $A99F; æKY Get1IndType æT Function æFc Resources.p æD PROCEDURE Get1IndType(VAR theType: ResType;index: INTEGER); INLINE $A80F; æKY SetResLoad æT Function æFc Resources.p æD PROCEDURE SetResLoad(load: BOOLEAN); INLINE $A99B; æKY CountResources æT Function æFc Resources.p æD FUNCTION CountResources(theType: ResType): INTEGER; INLINE $A99C; æKY Count1Resources æT Function æFc Resources.p æD FUNCTION Count1Resources(theType: ResType): INTEGER; INLINE $A80D; æKY GetIndResource æT Function æFc Resources.p æD FUNCTION GetIndResource(theType: ResType;index: INTEGER): Handle; INLINE $A99D; æKY Get1IndResource æT Function æFc Resources.p æD FUNCTION Get1IndResource(theType: ResType;index: INTEGER): Handle; INLINE $A80E; æKY GetResource æT Function æFc Resources.p æD FUNCTION GetResource(theType: ResType;theID: INTEGER): Handle; INLINE $A9A0; æKY Get1Resource æT Function æFc Resources.p æD FUNCTION Get1Resource(theType: ResType;theID: INTEGER): Handle; INLINE $A81F; æKY GetNamedResource æT Function æFc Resources.p æD FUNCTION GetNamedResource(theType: ResType;name: Str255): Handle; INLINE $A9A1; æKY Get1NamedResource æT Function æFc Resources.p æD FUNCTION Get1NamedResource(theType: ResType;name: Str255): Handle; INLINE $A820; æKY LoadResource æT Function æFc Resources.p æD PROCEDURE LoadResource(theResource: Handle); INLINE $A9A2; æKY ReleaseResource æT Function æFc Resources.p æD PROCEDURE ReleaseResource(theResource: Handle); INLINE $A9A3; æKY DetachResource æT Function æFc Resources.p æD PROCEDURE DetachResource(theResource: Handle); INLINE $A992; æKY UniqueID æT Function æFc Resources.p æD FUNCTION UniqueID(theType: ResType): INTEGER; INLINE $A9C1; æKY Unique1ID æT Function æFc Resources.p æD FUNCTION Unique1ID(theType: ResType): INTEGER; INLINE $A810; æKY GetResAttrs æT Function æFc Resources.p æD FUNCTION GetResAttrs(theResource: Handle): INTEGER; INLINE $A9A6; æKY GetResInfo æT Function æFc Resources.p æD PROCEDURE GetResInfo(theResource: Handle;VAR theID: INTEGER;VAR theType: ResType; VAR name: Str255); INLINE $A9A8; æKY SetResInfo æT Function æFc Resources.p æD PROCEDURE SetResInfo(theResource: Handle;theID: INTEGER;name: Str255); INLINE $A9A9; æKY AddResource æT Function æFc Resources.p æD PROCEDURE AddResource(theResource: Handle;theType: ResType;theID: INTEGER; name: Str255); INLINE $A9AB; æKY SizeResource æT Function æFc Resources.p æD FUNCTION SizeResource(theResource: Handle): LONGINT; INLINE $A9A5; æKY MaxSizeRsrc æT Function æFc Resources.p æD FUNCTION MaxSizeRsrc(theResource: Handle): LONGINT; INLINE $A821; æKY RsrcMapEntry æT Function æFc Resources.p æD FUNCTION RsrcMapEntry(theResource: Handle): LONGINT; INLINE $A9C5; æKY SetResAttrs æT Function æFc Resources.p æD PROCEDURE SetResAttrs(theResource: Handle;attrs: INTEGER); INLINE $A9A7; æKY ChangedResource æT Function æFc Resources.p æD PROCEDURE ChangedResource(theResource: Handle); INLINE $A9AA; æKY RmveResource æT Function æFc Resources.p æD PROCEDURE RmveResource(theResource: Handle); INLINE $A9AD; æKY UpdateResFile æT Function æFc Resources.p æD PROCEDURE UpdateResFile(refNum: INTEGER); INLINE $A999; æKY WriteResource æT Function æFc Resources.p æD PROCEDURE WriteResource(theResource: Handle); INLINE $A9B0; æKY SetResPurge æT Function æFc Resources.p æD PROCEDURE SetResPurge(install: BOOLEAN); INLINE $A993; æKY GetResFileAttrs æT Function æFc Resources.p æD FUNCTION GetResFileAttrs(refNum: INTEGER): INTEGER; INLINE $A9F6; æKY SetResFileAttrs æT Function æFc Resources.p æD PROCEDURE SetResFileAttrs(refNum: INTEGER;attrs: INTEGER); INLINE $A9F7; æKY OpenRFPerm æT Function æFc Resources.p æD FUNCTION OpenRFPerm(fileName: Str255;vRefNum: INTEGER;permission: SignedByte): INTEGER; INLINE $A9C4; æKY RGetResource æT Function æFc Resources.p æD FUNCTION RGetResource(theType: ResType;theID: INTEGER): Handle; INLINE $A80C; æKY HOpenResFile æT Function æFc Resources.p æD FUNCTION HOpenResFile(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255; permission: SignedByte): INTEGER; æKY HCreateResFile æT Function æFc Resources.p æD PROCEDURE HCreateResFile(vRefNum: INTEGER;dirID: LONGINT;fileName: Str255); æKY FSpOpenResFile æT Function æFc Resources.p æD FUNCTION FSpOpenResFile(spec: FSSpec;permission: SignedByte): INTEGER; INLINE $303C,$000D,$AA52; æKY FSpCreateResFile æT Function æFc Resources.p æD PROCEDURE FSpCreateResFile(spec: FSSpec;creator: OSType;fileType: OSType; scriptTag: ScriptCode); INLINE $303C,$000E,$AA52; æKY ReadPartialResource æT Function æFc Resources.p æD PROCEDURE ReadPartialResource(theResource: Handle;offset: LONGINT;buffer: UNIV Ptr; count: LONGINT); INLINE $7001,$A822; æKY WritePartialResource æT Function æFc Resources.p æD PROCEDURE WritePartialResource(theResource: Handle;offset: LONGINT;buffer: UNIV Ptr; count: LONGINT); INLINE $7002,$A822; æKY SetResourceSize æT Function æFc Resources.p æD PROCEDURE SetResourceSize(theResource: Handle;newSize: LONGINT); INLINE $7003,$A822; æKY Retrace.p æKL AttachVBL DoVBLTask GetVBLQHdr SlotVInstall SlotVRemove VInstall VRemove æKY GetVBLQHdr æT Function æFc Retrace.p æD FUNCTION GetVBLQHdr: QHdrPtr; INLINE $2EBC,$0000,$0160; æKY SlotVInstall æT Function æFc Retrace.p æD FUNCTION SlotVInstall(vblBlockPtr: QElemPtr;theSlot: INTEGER): OSErr; INLINE $301F,$205F,$A06F,$3E80; æKY SlotVRemove æT Function æFc Retrace.p æD FUNCTION SlotVRemove(vblBlockPtr: QElemPtr;theSlot: INTEGER): OSErr; INLINE $301F,$205F,$A070,$3E80; æKY AttachVBL æT Function æFc Retrace.p æD FUNCTION AttachVBL(theSlot: INTEGER): OSErr; INLINE $301F,$A071,$3E80; æKY DoVBLTask æT Function æFc Retrace.p æD FUNCTION DoVBLTask(theSlot: INTEGER): OSErr; INLINE $301F,$A072,$3E80; æKY VInstall æT Function æFc Retrace.p æD FUNCTION VInstall(vblTaskPtr: QElemPtr): OSErr; INLINE $205F,$A033,$3E80; æKY VRemove æT Function æFc Retrace.p æD FUNCTION VRemove(vblTaskPtr: QElemPtr): OSErr; INLINE $205F,$A034,$3E80; æKY ROMDefs.p æKL appleFormat board boardFlags boardId catBoard catDisplay catNetwork catTest date defaultTO displayVideoAppleGM displayVideoAppleTFB drHw3Com drHwBSC drHwTFB drSwApple endOfList majorBaseOS majorLength minorBaseOS minorLength networkEtherNetApple3Com partNum pRAMInitData primaryInit revLevel romRevision sCodeRev sCPU68000 sCPU68020 sCPU68030 sCPU68040 sDRVRDir secondaryInit serialNum sGammaDir sMacOS68000 sMacOS68020 sMacOS68030 sMacOS68040 sRsrcBootRec sRsrcCicn sRsrcDrvrDir sRsrcFlags sRsrcHWDevId sRsrcIcl4 sRsrcIcl8 sRsrcIcon sRsrcLoadDir sRsrcName sRsrcType sRsrcVidNames testByte testLong testPattern testSimpleAppleAny testString testWord timeOutConst typeApple typeBoard typeEtherNet typeVideo vendorId vendorInfo æKY appleFormat æT constant æFc ROMDefs.p æD appleFormat = 1; {Format of Declaration Data (IEEE will assign real value)} æKY romRevision æT constant æFc ROMDefs.p æD romRevision = 1; {Revision of Declaration Data Format} æKY testPattern æT constant æFc ROMDefs.p æD testPattern = 1519594439; {FHeader long word test pattern} æKY sCodeRev æT constant æFc ROMDefs.p æD sCodeRev = 2; {Revision of code (For sExec)} æKY sCPU68000 æT constant æFc ROMDefs.p æD sCPU68000 = 1; {CPU type = 68000} æKY sCPU68020 æT constant æFc ROMDefs.p æD sCPU68020 = 2; {CPU type = 68020} æKY sCPU68030 æT constant æFc ROMDefs.p æD sCPU68030 = 3; {CPU type = 68030} æKY sCPU68040 æT constant æFc ROMDefs.p æD sCPU68040 = 4; {CPU type = 68040} æKY sMacOS68000 æT constant æFc ROMDefs.p æD sMacOS68000 = 1; {Mac OS, CPU type = 68000} æKY sMacOS68020 æT constant æFc ROMDefs.p æD sMacOS68020 = 2; {Mac OS, CPU type = 68020} æKY sMacOS68030 æT constant æFc ROMDefs.p æD sMacOS68030 = 3; {Mac OS, CPU type = 68030} æKY sMacOS68040 æT constant æFc ROMDefs.p æD sMacOS68040 = 4; {Mac OS, CPU type = 68040} æKY board æT constant æFc ROMDefs.p æD board = 0; {Board sResource - Required on all boards} æKY displayVideoAppleTFB æT constant æFc ROMDefs.p æD displayVideoAppleTFB = 16843009; {Video with Apple parameters for TFB card.} æKY displayVideoAppleGM æT constant æFc ROMDefs.p æD displayVideoAppleGM = 16843010; {Video with Apple parameters for GM card.} æKY networkEtherNetApple3Com æT constant æFc ROMDefs.p æD networkEtherNetApple3Com = 33620225; {Ethernet with apple parameters for 3-Comm card.} æKY testSimpleAppleAny æT constant æFc ROMDefs.p æD testSimpleAppleAny = -2147417856; {A simple test sResource.} æKY endOfList æT constant æFc ROMDefs.p æD endOfList = 255; {End of list} æKY defaultTO æT constant æFc ROMDefs.p æD defaultTO = 100; {100 retries.} æKY sRsrcType æT constant æFc ROMDefs.p æD sRsrcType = 1; {Type of sResource} æKY sRsrcName æT constant æFc ROMDefs.p æD sRsrcName = 2; {Name of sResource} æKY sRsrcIcon æT constant æFc ROMDefs.p æD sRsrcIcon = 3; {Icon} æKY sRsrcDrvrDir æT constant æFc ROMDefs.p æD sRsrcDrvrDir = 4; {Driver directory} æKY sRsrcLoadDir æT constant æFc ROMDefs.p æD sRsrcLoadDir = 5; {Load directory} æKY sRsrcBootRec æT constant æFc ROMDefs.p æD sRsrcBootRec = 6; {sBoot record} æKY sRsrcFlags æT constant æFc ROMDefs.p æD sRsrcFlags = 7; {sResource Flags} æKY sRsrcHWDevId æT constant æFc ROMDefs.p æD sRsrcHWDevId = 8; {Hardware Device Id} æKY minorBaseOS æT constant æFc ROMDefs.p æD minorBaseOS = 10; {Offset to base of sResource in minor space.} æKY minorLength æT constant æFc ROMDefs.p æD minorLength = 11; {Length of sResource’s address space in standard slot space.} æKY majorBaseOS æT constant æFc ROMDefs.p æD majorBaseOS = 12; {Offset to base of sResource in Major space.} æKY majorLength æT constant æFc ROMDefs.p æD majorLength = 13; {Length of sResource in super slot space.} æKY sRsrcCicn æT constant æFc ROMDefs.p æD sRsrcCicn = 15; {Color icon} æKY sRsrcIcl8 æT constant æFc ROMDefs.p æD sRsrcIcl8 = 16; {8-bit (indexed) icon} æKY sRsrcIcl4 æT constant æFc ROMDefs.p æD sRsrcIcl4 = 17; {4-bit (indexed) icon} æKY sGammaDir æT constant æFc ROMDefs.p æD sGammaDir = 64; {sGamma directory} æKY sDRVRDir æT constant æFc ROMDefs.p æD sDRVRDir = 16; {sDriver directory} æKY drSwApple æT constant æFc ROMDefs.p æD drSwApple = 1; {To ask for or define an Apple-compatible SW device.} æKY drHwTFB æT constant æFc ROMDefs.p æD drHwTFB = 1; {HW ID for the TFB (original Mac II) video card.} æKY drHw3Com æT constant æFc ROMDefs.p æD drHw3Com = 1; {HW ID for the Apple EtherTalk card.} æKY drHwBSC æT constant æFc ROMDefs.p æD drHwBSC = 3; æKY catBoard æT constant æFc ROMDefs.p æD catBoard = 1; {Category for board types.} æKY catTest æT constant æFc ROMDefs.p æD catTest = 2; {Category for test types -- not used much.} æKY catDisplay æT constant æFc ROMDefs.p æD catDisplay = 3; {Category for display (video) cards.} æKY catNetwork æT constant æFc ROMDefs.p æD catNetwork = 4; {Category for Networking cards.} æKY boardId æT constant æFc ROMDefs.p æD boardId = 32; {Board Id} æKY pRAMInitData æT constant æFc ROMDefs.p æD pRAMInitData = 33; {sPRAM init data} æKY primaryInit æT constant æFc ROMDefs.p æD primaryInit = 34; {Primary init record} æKY timeOutConst æT constant æFc ROMDefs.p æD timeOutConst = 35; {Time out constant} æKY vendorInfo æT constant æFc ROMDefs.p æD vendorInfo = 36; {Vendor information List. See Vendor List, below} æKY boardFlags æT constant æFc ROMDefs.p æD boardFlags = 37; {Board Flags} æKY secondaryInit æT constant æFc ROMDefs.p æD secondaryInit = 38; {Secondary init record/code} æKY sRsrcVidNames æT constant æFc ROMDefs.p æD sRsrcVidNames = 65; {Video mode name directory} æKY vendorId æT constant æFc ROMDefs.p æD vendorId = 1; {Vendor Id} æKY serialNum æT constant æFc ROMDefs.p æD serialNum = 2; {Serial number} æKY revLevel æT constant æFc ROMDefs.p æD revLevel = 3; {Revision level} æKY partNum æT constant æFc ROMDefs.p æD partNum = 4; {Part number} æKY date æT constant æFc ROMDefs.p æD date = 5; {Last revision date of the card} æKY typeBoard æT constant æFc ROMDefs.p æD typeBoard = 0; {Type for board types.} æKY typeApple æT constant æFc ROMDefs.p æD typeApple = 1; æKY typeVideo æT constant æFc ROMDefs.p æD typeVideo = 1; {Type for video types.} æKY typeEtherNet æT constant æFc ROMDefs.p æD typeEtherNet = 1; {Type for ethernet types.} æKY testByte æT constant æFc ROMDefs.p æD testByte = 32; {Test byte.} æKY testWord æT constant æFc ROMDefs.p æD testWord = 33; {0021} æKY testLong æT constant æFc ROMDefs.p æD testLong = 34; {Test Long.} æKY testString æT constant æFc ROMDefs.p æD testString = 35; {Test String.} æKY Scrap.p æKL GetScrap InfoScrap LoadScrap PutScrap UnloadScrap ZeroScrap PScrapStuff ScrapStuff æKY ScrapStuff æT struct æFc Scrap.p æD PScrapStuff = ^ScrapStuff; ScrapStuff = RECORD scrapSize: LONGINT; scrapHandle: Handle; scrapCount: INTEGER; scrapState: INTEGER; scrapName: StringPtr; END; æKY InfoScrap æT Function æFc Scrap.p æD FUNCTION InfoScrap: PScrapStuff; INLINE $A9F9; æKY UnloadScrap æT Function æFc Scrap.p æD FUNCTION UnloadScrap: LONGINT; INLINE $A9FA; æKY LoadScrap æT Function æFc Scrap.p æD FUNCTION LoadScrap: LONGINT; INLINE $A9FB; æKY GetScrap æT Function æFc Scrap.p æD FUNCTION GetScrap(hDest: Handle;theType: ResType;VAR offset: LONGINT): LONGINT; INLINE $A9FD; æKY ZeroScrap æT Function æFc Scrap.p æD FUNCTION ZeroScrap: LONGINT; INLINE $A9FC; æKY PutScrap æT Function æFc Scrap.p æD FUNCTION PutScrap(length: LONGINT;theType: ResType;source: Ptr): LONGINT; INLINE $A9FE; æKY Script.p æKL Char2Pixel CharByte CharType DrawJust FindScriptRun FindWord Font2Script FontScript Format2Str FormatStr2X FormatX2Str GetAppFont GetDefFontSize GetEnvirons GetFormatOrder GetMBarHeight GetScript GetSysFont GetSysJust HiliteText InitDateCache IntlScript IntlTokenize KeyScript LongDate2Secs LongSecs2Date LowerText LwrText MeasureJust NChar2Pixel NDrawJust NFindWord NMeasureJust NPixel2Char NPortionText ParseTable Pixel2Char PortionText ReadLocation ReplaceText SetEnvirons SetScript SetSysJust Str2Format String2Date String2Time StripText StripUpperText StyledLineBreak ToggleDate Transliterate TruncString TruncText UpperText UprText ValidDate VisibleLength WriteLocation acuteUprA acuteUprI acuteUprO acuteUprU appleLogo badDelim badEnding baseDblQuote baseSingQuote BreakTable BreakTablePtr breveMark calArabicCivil calArabicLunar calCoptic calGregorian calJapanese calJewish calPersian cantReadUtilities cedilla centeredDot CharByteTable circumflex circumflexUprA circumflexUprE circumflexUprI circumflexUprO circumflexUprU CommentType crash curNumberPartsVersion DateCachePtr DateCacheRecord DateDelta dateStdMask dateTimeInvalid dateTimeNotFound dayField dayMask dayOfWeekField dayOfWeekMask dayOfYearField dayOfYearMask dblDagger delimPad DelimType diaeresisUprE diaeresisUprI diaeresisUprY dotlessLwrI doubleAcute eraField eraMask extraneousStrings fatalDateTime fBadPartsTable fBestGuess fEmptyFormatString fExtraDecimal fExtraExp fExtraPercent fExtraSeparator fFormatOK fFormatOverflow fFormStrIsNAN fieldOrderNotIntl fiLigature flLigature fMissingDelimiter fMissingLiteral fNegative FormatClass FormatOrder FormatOrderPtr FormatResultType FormatStatus fOutOfSynch fPositive fraction fSpuriousChars FVector fVNumber fZero genCdevRangeBit graveUprE graveUprI graveUprO graveUprU hachek hourField hourMask intArabic intEuropean intJapanese intlCurrency intOutputMask intRoman intWestern Itl4Handle Itl4Ptr Itl4Rec ItlbExtRecord ItlbRecord ItlcRecord JustStyleCode leftOverChars leftSingGuillemet LongDateCvt LongDateField longDateFound LongDateRec LongDateTime MachineLocation macron maxDateField minuteField minuteMask monthField monthMask NBreakTable NBreakTablePtr NItl4Handle NItl4Ptr NItl4Rec NumberParts NumberPartsPtr NumFormatString OffPair OffsetTable ogonek overDot perThousand pmField pmMask res1Field res2Field res3Field rightSingGuillemet ringMark romanAppFond romanFlags romanSysFond ScriptRunStatus secondField secondMask sepNotConsistent sepNotIntlSep smallDateBit smAmharic smArabic smArmenian smBadScript smBadVerb smBengali smBidirect smBreakChar smBreakOverflow smBreakWord smBurmese smcClassMask smcDoubleMask smChar1byte smChar2byte smCharAscii smCharBidirect smCharEuro smCharExtAscii smCharFISGana smCharFISGreek smCharFISIdeo smCharFISKana smCharFISRussian smCharHangul smCharHiragana smCharHorizontal smCharIdeographic smCharJamo smCharKatakana smCharLeft smCharLower smCharPortion smCharPunct smCharRight smCharTwoByteGreek smCharTwoByteRussian smCharUpper smCharVertical smChinese smcOrientationMask smcReserved smcRightMask smcTypeMask smcUpperMask smCurrentScript smCyrillic smDefault smDevanagari smDoubleByte smEastEurRoman smEnabled smEthiopic smExtArabic smfDualCaret smFirstByte smFISClassLvl1 smFISClassLvl2 smFISClassUser smfNameTagEnab smFondEnd smFondStart smFontForce smForced smfShowIcon smGeez smGenFlags smGeorgian smGreek smGujarati smGurmukhi smHebrew smHilite smIdeographicLevel1 smIdeographicLevel2 smIdeographicUser smIntlForce smJamoBogJaeum smJamoBogMoeum smJamoJaeum smJamoMoeum smJapanese smKanaHardOK smKanaSmall smKanaSoftOK smKannada smKCHRCache smKeyCache smKeyDisableKybds smKeyDisableKybdSwitch smKeyEnableKybds smKeyNextInputMethod smKeyNextKybd smKeyNextScript smKeyScript smKeySwap smKeySwapInputMethod smKeySwapKybd smKeySwapScript smKeySysScript smKeyToggleDirection smKeyToggleInline smKhmer smKorean smLaotian smLastByte smLastScript smLeftCaret smLeftStyleRun smMalayalam smMaskAll smMaskAscii smMaskAscii1 smMaskAscii2 smMaskBopomofo2 smMaskGana2 smMaskHangul2 smMaskJamo2 smMaskKana1 smMaskKana2 smMaskNative smMiddleByte smMiddleStyleRun smMongolian smMunged smNotInstalled smNotTruncated smOnlyStyleRun smOriya smOverride smPrint smPunctBlank smPunctGraphic smPunctNormal smPunctNumber smPunctRepeat smPunctSymbol smRedrawChar smRedrawLine smRedrawWord smRegionCode smRightCaret smRightStyleRun smRoman smRSymbol smRussian smScriptAliasStyle smScriptAppFond smScriptAppFondSize smScriptBundle smScriptCreator smScriptDate smScriptEnabled smScriptEncoding smScriptFile smScriptFlags smScriptHelpFondSize smScriptIcon smScriptJust smScriptKeys smScriptLang smScriptMonoFondSize smScriptMunged smScriptName smScriptNumber smScriptNumDate smScriptPrefFondSize smScriptPrint smScriptRedraw smScriptRight smScriptSmallFondSize smScriptSort smScriptSysFond smScriptSysFondSize smScriptToken smScriptTrap smScriptValidStyles smScriptVersion smsfAutoInit smsfB0Digits smsfContext smsfForms smsfIntellCP smsfLigatures smsfNatCase smsfNoForceFont smsfReverse smsfSingByte smSimpChinese smSindhi smSingleByte smSinhalese smSlavic smSysRef smSysScript smSystemScript smTamil smTelugu smThai smTibetan smTradChinese smTransAscii smTransAscii1 smTransAscii2 smTransBopomofo2 smTransCase smTransGana2 smTransHangul2 smTransJamo2 smTransKana1 smTransKana2 smTransLower smTransNative smTransSystem smTransUpper smTruncated smTruncEnd smTruncErr smTruncMiddle smUninterp smUprHalfCharSet smVersion smVietnamese String2DateStatus stringOverflow StyledLineBreakCode tilde togChar12HourBit togCharZCycleBit togDelta12HourBit toggleBadChar toggleBadDelta toggleBadField toggleBadNum toggleErr3 toggleErr4 toggleErr5 toggleOK toggleOutOfRange TogglePB ToggleResults toggleUndefined toggleUnknown tokDecPoint tokEMinus token1Quote token2Equal token2Quote tokenAlpha tokenAltNum tokenAltReal tokenAmpersand tokenAsterisk tokenAtSign tokenBackSlash tokenBar TokenBlock TokenBlockPtr tokenCapPi tokenCarat tokenCaret tokenCenterDot tokenColon tokenColonEqual tokenComma tokenDivide tokenDollar tokenEllipsis tokenEmpty tokenEqual tokenErr tokenEscape tokenExclam tokenExclamEqual tokenFraction tokenGreat tokenGreatEqual1 tokenGreatEqual2 tokenHash tokenInfinity tokenIntegral tokenIntl tokenIntlCurrency tokenLeft1Quote tokenLeft2Quote tokenLeftBracket tokenLeftComment tokenLeftCurly tokenLeftEnclose tokenLeftLit tokenLeftParen tokenLeftSingGuillemet tokenLess tokenLessEqual1 tokenLessEqual2 tokenLessGreat tokenLiteral tokenMicro tokenMinus tokenNewLine tokenNil tokenNoBreakSpace tokenNotEqual tokenNumeric tokenOK tokenOverflow tokenPercent tokenPeriod tokenPerThousand tokenPi tokenPlus tokenPlusMinus tokenQuestion tokenRealNum TokenRec TokenRecPtr tokenReserve1 tokenReserve2 TokenResults tokenRight1Quote tokenRight2Quote tokenRightBracket tokenRightComment tokenRightCurly tokenRightEnclose tokenRightLit tokenRightParen tokenRightSingGuillemet tokenRoot tokenSemicolon tokenSigma tokenSlash tokenTilda tokenTilde TokenType tokenUnderline tokenUnknown tokenWhite tokEPlus tokEscape tokLeader tokLeadPlacer tokLeftQuote tokMaxSymbols tokMinusSign tokNonLeader tokPercent tokPlusSign tokRightQuote tokSeparator tokThousands tokZeroLead tooManySeps TripleInt TruncCode UntokenTable UntokenTableHandle UntokenTablePtr validDateFields weekOfYearField weekOfYearMask WideChar WideCharArr yearField yearMask æKY smSystemScript æT constant æFc Script.p æD smSystemScript = -1; {designates system script.} æKY smCurrentScript æT constant æFc Script.p æD smCurrentScript = -2; {designates current font script.} æKY smRoman æT constant æFc Script.p æD smRoman = 0; {Roman} æKY smJapanese æT constant æFc Script.p æD smJapanese = 1; {Japanese} æKY smTradChinese æT constant æFc Script.p æD smTradChinese = 2; {Traditional Chinese} æKY smKorean æT constant æFc Script.p æD smKorean = 3; {Korean} æKY smArabic æT constant æFc Script.p æD smArabic = 4; {Arabic} æKY smHebrew æT constant æFc Script.p æD smHebrew = 5; {Hebrew} æKY smGreek æT constant æFc Script.p æD smGreek = 6; {Greek} æKY smCyrillic æT constant æFc Script.p æD smCyrillic = 7; {Cyrillic} æKY smRSymbol æT constant æFc Script.p æD smRSymbol = 8; {Right-left symbol} æKY smDevanagari æT constant æFc Script.p æD smDevanagari = 9; {Devanagari} æKY smGurmukhi æT constant æFc Script.p æD smGurmukhi = 10; {Gurmukhi} æKY smGujarati æT constant æFc Script.p æD smGujarati = 11; {Gujarati} æKY smOriya æT constant æFc Script.p æD smOriya = 12; {Oriya} æKY smBengali æT constant æFc Script.p æD smBengali = 13; {Bengali} æKY smTamil æT constant æFc Script.p æD smTamil = 14; {Tamil} æKY smTelugu æT constant æFc Script.p æD smTelugu = 15; {Telugu} æKY smKannada æT constant æFc Script.p æD smKannada = 16; {Kannada/Kanarese} æKY smMalayalam æT constant æFc Script.p æD smMalayalam = 17; {Malayalam} æKY smSinhalese æT constant æFc Script.p æD smSinhalese = 18; {Sinhalese} æKY smBurmese æT constant æFc Script.p æD smBurmese = 19; {Burmese} æKY smKhmer æT constant æFc Script.p æD smKhmer = 20; {Khmer/Cambodian} æKY smThai æT constant æFc Script.p æD smThai = 21; {Thai} æKY smLaotian æT constant æFc Script.p æD smLaotian = 22; {Laotian} æKY smGeorgian æT constant æFc Script.p æD smGeorgian = 23; {Georgian} æKY smArmenian æT constant æFc Script.p æD smArmenian = 24; {Armenian} æKY smSimpChinese æT constant æFc Script.p æD smSimpChinese = 25; {Simplified Chinese} æKY smTibetan æT constant æFc Script.p æD smTibetan = 26; {Tibetan} æKY smMongolian æT constant æFc Script.p æD smMongolian = 27; {Mongolian} æKY smGeez æT constant æFc Script.p æD smGeez = 28; {Geez/Ethiopic} æKY smEthiopic æT constant æFc Script.p æD smEthiopic = 28; {Synonym for smGeez} æKY smEastEurRoman æT constant æFc Script.p æD smEastEurRoman = 29; {Synonym for smSlavic} æKY smVietnamese æT constant æFc Script.p æD smVietnamese = 30; {Vietnamese} æKY smExtArabic æT constant æFc Script.p æD smExtArabic = 31; {extended Arabic} æKY smUninterp æT constant æFc Script.p æD smUninterp = 32; {uninterpreted symbols, e.g. palette symbols} æKY smChinese æT constant æFc Script.p æD smChinese = 2; {(use smTradChinese or smSimpChinese)} æKY smRussian æT constant æFc Script.p æD smRussian = 7; {(old name for smCyrillic)} æKY smAmharic æT constant æFc Script.p æD smAmharic = 28; {(old name for smGeez)} æKY smSlavic æT constant æFc Script.p æD smSlavic = 29; {(old name for smEastEurRoman)} æKY smSindhi æT constant æFc Script.p æD smSindhi = 31; {(old name for smExtArabic)} æKY calGregorian æT constant æFc Script.p æD calGregorian = 0; æKY calArabicCivil æT constant æFc Script.p æD calArabicCivil = 1; æKY calArabicLunar æT constant æFc Script.p æD calArabicLunar = 2; æKY calJapanese æT constant æFc Script.p æD calJapanese = 3; æKY calJewish æT constant æFc Script.p æD calJewish = 4; æKY calCoptic æT constant æFc Script.p æD calCoptic = 5; æKY calPersian æT constant æFc Script.p æD calPersian = 6; æKY intWestern æT constant æFc Script.p æD intWestern = 0; æKY intArabic æT constant æFc Script.p æD intArabic = 1; æKY intRoman æT constant æFc Script.p æD intRoman = 2; æKY intJapanese æT constant æFc Script.p æD intJapanese = 3; æKY intEuropean æT constant æFc Script.p æD intEuropean = 4; æKY intOutputMask æT constant æFc Script.p æD intOutputMask = $8000; æKY smSingleByte æT constant æFc Script.p æD smSingleByte = 0; æKY smFirstByte æT constant æFc Script.p æD smFirstByte = -1; æKY smLastByte æT constant æFc Script.p æD smLastByte = 1; æKY smMiddleByte æT constant æFc Script.p æD smMiddleByte = 2; æKY smcTypeMask æT constant æFc Script.p æD smcTypeMask = $000F; æKY smcReserved æT constant æFc Script.p æD smcReserved = $00F0; æKY smcClassMask æT constant æFc Script.p æD smcClassMask = $0F00; æKY smcOrientationMask æT constant æFc Script.p æD smcOrientationMask = $1000; {two-byte script glyph orientation} æKY smcRightMask æT constant æFc Script.p æD smcRightMask = $2000; æKY smcUpperMask æT constant æFc Script.p æD smcUpperMask = $4000; æKY smcDoubleMask æT constant æFc Script.p æD smcDoubleMask = $8000; æKY smCharPunct æT constant æFc Script.p æD smCharPunct = $0000; æKY smCharAscii æT constant æFc Script.p æD smCharAscii = $0001; æKY smCharEuro æT constant æFc Script.p æD smCharEuro = $0007; æKY smCharExtAscii æT constant æFc Script.p æD smCharExtAscii = $0007; { More correct synonym for smCharEuro } æKY smCharKatakana æT constant æFc Script.p æD smCharKatakana = $0002; {Japanese Katakana} æKY smCharHiragana æT constant æFc Script.p æD smCharHiragana = $0003; {Japanese Hiragana} æKY smCharIdeographic æT constant æFc Script.p æD smCharIdeographic = $0004; {Hanzi, Kanji, Hanja} æKY smCharTwoByteGreek æT constant æFc Script.p æD smCharTwoByteGreek = $0005; {2-byte Greek in Far East systems} æKY smCharTwoByteRussian æT constant æFc Script.p æD smCharTwoByteRussian = $0006; {2-byte Cyrillic in Far East systems} æKY smCharBidirect æT constant æFc Script.p æD smCharBidirect = $0008; {Arabic/Hebrew} æKY smCharHangul æT constant æFc Script.p æD smCharHangul = $000C; {Korean Hangul} æKY smCharJamo æT constant æFc Script.p æD smCharJamo = $000D; {Korean Jamo} æKY smCharFISKana æT constant æFc Script.p æD smCharFISKana = $0002; {Katakana} æKY smCharFISGana æT constant æFc Script.p æD smCharFISGana = $0003; {Hiragana} æKY smCharFISIdeo æT constant æFc Script.p æD smCharFISIdeo = $0004; {Hanzi, Kanji, Hanja} æKY smCharFISGreek æT constant æFc Script.p æD smCharFISGreek = $0005; {2-byte Greek in Far East systems} æKY smCharFISRussian æT constant æFc Script.p æD smCharFISRussian = $0006; {2-byte Cyrillic in Far East systems} æKY smPunctNormal æT constant æFc Script.p æD smPunctNormal = $0000; æKY smPunctNumber æT constant æFc Script.p æD smPunctNumber = $0100; æKY smPunctSymbol æT constant æFc Script.p æD smPunctSymbol = $0200; æKY smPunctBlank æT constant æFc Script.p æD smPunctBlank = $0300; æKY smPunctRepeat æT constant æFc Script.p æD smPunctRepeat = $0400; { FIS: wildcard } æKY smPunctGraphic æT constant æFc Script.p æD smPunctGraphic = $0500; { FIS: line graphics } æKY smKanaSmall æT constant æFc Script.p æD smKanaSmall = $0100; {small kana character} æKY smKanaHardOK æT constant æFc Script.p æD smKanaHardOK = $0200; {can have dakuten} æKY smKanaSoftOK æT constant æFc Script.p æD smKanaSoftOK = $0300; {can have dakuten or han-dakuten} æKY smIdeographicLevel1 æT constant æFc Script.p æD smIdeographicLevel1 = $0000; {level 1 char} æKY smIdeographicLevel2 æT constant æFc Script.p æD smIdeographicLevel2 = $0100; {level 2 char} æKY smIdeographicUser æT constant æFc Script.p æD smIdeographicUser = $0200; {user char} æKY smFISClassLvl1 æT constant æFc Script.p æD smFISClassLvl1 = $0000; {level 1 char} æKY smFISClassLvl2 æT constant æFc Script.p æD smFISClassLvl2 = $0100; {level 2 char} æKY smFISClassUser æT constant æFc Script.p æD smFISClassUser = $0200; {user char} æKY smJamoJaeum æT constant æFc Script.p æD smJamoJaeum = $0000; {simple consonant char} æKY smJamoBogJaeum æT constant æFc Script.p æD smJamoBogJaeum = $0100; {complex consonant char} æKY smJamoMoeum æT constant æFc Script.p æD smJamoMoeum = $0200; {simple vowel char} æKY smJamoBogMoeum æT constant æFc Script.p æD smJamoBogMoeum = $0300; {complex vowel char} æKY smCharHorizontal æT constant æFc Script.p æD smCharHorizontal = $0000; { horizontal character form, or for both } æKY smCharVertical æT constant æFc Script.p æD smCharVertical = $1000; { vertical character form } æKY smCharLeft æT constant æFc Script.p æD smCharLeft = $0000; æKY smCharRight æT constant æFc Script.p æD smCharRight = $2000; æKY smCharLower æT constant æFc Script.p æD smCharLower = $0000; æKY smCharUpper æT constant æFc Script.p æD smCharUpper = $4000; æKY smChar1byte æT constant æFc Script.p æD smChar1byte = $0000; æKY smChar2byte æT constant æFc Script.p æD smChar2byte = $8000; æKY smLeftCaret æT constant æFc Script.p æD smLeftCaret = 0; {Place caret for left block} æKY smRightCaret æT constant æFc Script.p æD smRightCaret = -1; {Place caret for right block} æKY smHilite æT constant æFc Script.p æD smHilite = 1; {Direction is TESysJust} æKY smTransAscii æT constant æFc Script.p æD smTransAscii = 0; æKY smTransNative æT constant æFc Script.p æD smTransNative = 1; æKY smTransCase æT constant æFc Script.p æD smTransCase = $FE; æKY smTransSystem æT constant æFc Script.p æD smTransSystem = $FF; {convert to system script} æKY smTransAscii1 æT constant æFc Script.p æD smTransAscii1 = 2; {1-byte Roman} æKY smTransAscii2 æT constant æFc Script.p æD smTransAscii2 = 3; {2-byte Roman} æKY smTransKana1 æT constant æFc Script.p æD smTransKana1 = 4; {1-byte Japanese Katakana} æKY smTransKana2 æT constant æFc Script.p æD smTransKana2 = 5; {2-byte Japanese Katakana} æKY smTransGana2 æT constant æFc Script.p æD smTransGana2 = 7; {2-byte Japanese Hiragana (no 1-byte Hiragana)} æKY smTransHangul2 æT constant æFc Script.p æD smTransHangul2 = 8; {2-byte Korean Hangul} æKY smTransJamo2 æT constant æFc Script.p æD smTransJamo2 = 9; {2-byte Korean Jamo} æKY smTransBopomofo2 æT constant æFc Script.p æD smTransBopomofo2 = 10; {2-byte Chinese Bopomofo} æKY smTransLower æT constant æFc Script.p æD smTransLower = $4000; æKY smTransUpper æT constant æFc Script.p æD smTransUpper = $8000; æKY smMaskAll æT constant æFc Script.p æD smMaskAll = $FFFFFFFF; {Convert all text} æKY smMaskAscii æT constant æFc Script.p æD smMaskAscii = $00000001; {2^smTransAscii} æKY smMaskNative æT constant æFc Script.p æD smMaskNative = $00000002; {2^smTransNative} æKY smMaskAscii1 æT constant æFc Script.p æD smMaskAscii1 = $00000004; {2^smTransAscii1} æKY smMaskAscii2 æT constant æFc Script.p æD smMaskAscii2 = $00000008; {2^smTransAscii2} æKY smMaskKana1 æT constant æFc Script.p æD smMaskKana1 = $00000010; {2^smTransKana1} æKY smMaskKana2 æT constant æFc Script.p æD smMaskKana2 = $00000020; {2^smTransKana2} æKY smMaskGana2 æT constant æFc Script.p æD smMaskGana2 = $00000080; {2^smTransGana2} æKY smMaskHangul2 æT constant æFc Script.p æD smMaskHangul2 = $00000100; {2^smTransHangul2} æKY smMaskJamo2 æT constant æFc Script.p æD smMaskJamo2 = $00000200; {2^smTransJamo2} æKY smMaskBopomofo2 æT constant æFc Script.p æD smMaskBopomofo2 = $00000400; {2^smTransBopomofo2} æKY smNotInstalled æT constant æFc Script.p æD smNotInstalled = 0; {routine not available in script} æKY smBadVerb æT constant æFc Script.p æD smBadVerb = -1; {Bad verb passed to a routine} æKY smBadScript æT constant æFc Script.p æD smBadScript = -2; {Bad script code passed to a routine} æKY smRedrawChar æT constant æFc Script.p æD smRedrawChar = 0; {Redraw character only} æKY smRedrawWord æT constant æFc Script.p æD smRedrawWord = 1; {Redraw entire word (2-byte systems)} æKY smRedrawLine æT constant æFc Script.p æD smRedrawLine = -1; {Redraw entire line (bidirectional systems)} æKY smVersion æT constant æFc Script.p æD smVersion = 0; {Environment version number} æKY smMunged æT constant æFc Script.p æD smMunged = 2; {Globals change count} æKY smEnabled æT constant æFc Script.p æD smEnabled = 4; {Environment enabled flag} æKY smBidirect æT constant æFc Script.p æD smBidirect = 6; {At least on bidirect script} æKY smFontForce æT constant æFc Script.p æD smFontForce = 8; {Force font flag} æKY smIntlForce æT constant æFc Script.p æD smIntlForce = 10; {Force intl flag} æKY smForced æT constant æFc Script.p æD smForced = 12; {script forced to system script} æKY smDefault æT constant æFc Script.p æD smDefault = 14; {script defaulted to Roman script} æKY smPrint æT constant æFc Script.p æD smPrint = 16; {Printer action routine} æKY smSysScript æT constant æFc Script.p æD smSysScript = 18; {System script} æKY smLastScript æT constant æFc Script.p æD smLastScript = 20; {Last keyboard script} æKY smKeyScript æT constant æFc Script.p æD smKeyScript = 22; {Keyboard script} æKY smSysRef æT constant æFc Script.p æD smSysRef = 24; {System folder refNum} æKY smKeyCache æT constant æFc Script.p æD smKeyCache = 26; {Keyboard table cache pointer} æKY smKeySwap æT constant æFc Script.p æD smKeySwap = 28; {Swapping table pointer} æKY smGenFlags æT constant æFc Script.p æD smGenFlags = 30; {General flags long} æKY smOverride æT constant æFc Script.p æD smOverride = 32; {Script override flags} æKY smCharPortion æT constant æFc Script.p æD smCharPortion = 34; {Ch vs SpExtra proportion} æKY smDoubleByte æT constant æFc Script.p æD smDoubleByte = 36; {Flag for double-byte script installed} æKY smKCHRCache æT constant æFc Script.p æD smKCHRCache = 38; {Returns pointer to KCHR cache} æKY smRegionCode æT constant æFc Script.p æD smRegionCode = 40; {Returns current region code (verXxx)} æKY smScriptVersion æT constant æFc Script.p æD smScriptVersion = 0; {Script software version} æKY smScriptMunged æT constant æFc Script.p æD smScriptMunged = 2; {Script entry changed count} æKY smScriptEnabled æT constant æFc Script.p æD smScriptEnabled = 4; {Script enabled flag} æKY smScriptRight æT constant æFc Script.p æD smScriptRight = 6; {Right to left flag} æKY smScriptJust æT constant æFc Script.p æD smScriptJust = 8; {Justification flag} æKY smScriptRedraw æT constant æFc Script.p æD smScriptRedraw = 10; {Word redraw flag} æKY smScriptSysFond æT constant æFc Script.p æD smScriptSysFond = 12; {Preferred system font} æKY smScriptAppFond æT constant æFc Script.p æD smScriptAppFond = 14; {Preferred Application font} æKY smScriptBundle æT constant æFc Script.p æD smScriptBundle = 16; {Beginning of itlb verbs} æKY smScriptNumber æT constant æFc Script.p æD smScriptNumber = 16; {Script itl0 id} æKY smScriptDate æT constant æFc Script.p æD smScriptDate = 18; {Script itl1 id} æKY smScriptSort æT constant æFc Script.p æD smScriptSort = 20; {Script itl2 id} æKY smScriptFlags æT constant æFc Script.p æD smScriptFlags = 22; {flags word} æKY smScriptToken æT constant æFc Script.p æD smScriptToken = 24; {Script itl4 id} æKY smScriptEncoding æT constant æFc Script.p æD smScriptEncoding = 26; {id of optional itl5, if present} æKY smScriptLang æT constant æFc Script.p æD smScriptLang = 28; {Current language for script} æKY smScriptNumDate æT constant æFc Script.p æD smScriptNumDate = 30; {Script KCHR id} æKY smScriptKeys æT constant æFc Script.p æD smScriptKeys = 32; {Script KEYC id from dictionary} æKY smScriptIcon æT constant æFc Script.p æD smScriptIcon = 34; {ID # of SICN or kcs#/kcs4/kcs8 suite} æKY smScriptPrint æT constant æFc Script.p æD smScriptPrint = 36; {Script printer action routine} æKY smScriptTrap æT constant æFc Script.p æD smScriptTrap = 38; {Trap entry pointer} æKY smScriptCreator æT constant æFc Script.p æD smScriptCreator = 40; {Script file creator} æKY smScriptFile æT constant æFc Script.p æD smScriptFile = 42; {Script file name} æKY smScriptName æT constant æFc Script.p æD smScriptName = 44; {Script name} æKY smScriptMonoFondSize æT constant æFc Script.p æD smScriptMonoFondSize = 78; {default monospace FOND (hi) & size (lo)} æKY smScriptPrefFondSize æT constant æFc Script.p æD smScriptPrefFondSize = 80; {preferred FOND (hi) & size (lo)} æKY smScriptSmallFondSize æT constant æFc Script.p æD smScriptSmallFondSize = 82; {default small FOND (hi) & size (lo)} æKY smScriptSysFondSize æT constant æFc Script.p æD smScriptSysFondSize = 84; {default system FOND (hi) & size (lo)} æKY smScriptAppFondSize æT constant æFc Script.p æD smScriptAppFondSize = 86; {default app FOND (hi) & size (lo)} æKY smScriptHelpFondSize æT constant æFc Script.p æD smScriptHelpFondSize = 88; {default Help Mgr FOND (hi) & size (lo)} æKY smScriptValidStyles æT constant æFc Script.p æD smScriptValidStyles = 90; {mask of valid styles for script} æKY smScriptAliasStyle æT constant æFc Script.p æD smScriptAliasStyle = 92; {style (set) to use for aliases} æKY smKeyNextScript æT constant æFc Script.p æD smKeyNextScript = -1; { Switch to next available script } æKY smKeySysScript æT constant æFc Script.p æD smKeySysScript = -2; { Switch to the system script } æKY smKeySwapScript æT constant æFc Script.p æD smKeySwapScript = -3; { Switch to previously-used script } æKY smKeyNextKybd æT constant æFc Script.p æD smKeyNextKybd = -4; { Switch to next keyboard in current script } æKY smKeySwapKybd æT constant æFc Script.p æD smKeySwapKybd = -5; { Switch to previously-used keyboard in current keyscript } æKY smKeyDisableKybds æT constant æFc Script.p æD smKeyDisableKybds = -6; { Disable keyboards not in system or Roman script } æKY smKeyEnableKybds æT constant æFc Script.p æD smKeyEnableKybds = -7; { Re-enable keyboards for all enabled scripts } æKY smKeyToggleInline æT constant æFc Script.p æD smKeyToggleInline = -8; { Toggle inline input for current keyscript } æKY smKeyToggleDirection æT constant æFc Script.p æD smKeyToggleDirection = -9; { Toggle default line direction (TESysJust) } æKY smKeyNextInputMethod æT constant æFc Script.p æD smKeyNextInputMethod = -10; { Switch to next input method in current keyscript } æKY smKeySwapInputMethod æT constant æFc Script.p æD smKeySwapInputMethod = -11; { Switch to last-used input method in current keyscript } æKY smKeyDisableKybdSwitch æT constant æFc Script.p æD smKeyDisableKybdSwitch = -12; { Disable switching from the current keyboard } æKY smsfIntellCP æT constant æFc Script.p æD smsfIntellCP = 0; {script has intellegent cut & paste} æKY smsfSingByte æT constant æFc Script.p æD smsfSingByte = 1; {script has only single bytes} æKY smsfNatCase æT constant æFc Script.p æD smsfNatCase = 2; {native chars have upper & lower case} æKY smsfContext æT constant æFc Script.p æD smsfContext = 3; {contextual script (e.g. AIS-based)} æKY smsfNoForceFont æT constant æFc Script.p æD smsfNoForceFont = 4; {Will not force characters} æKY smsfB0Digits æT constant æFc Script.p æD smsfB0Digits = 5; {Has alternate digits at B0-B9} æKY smsfAutoInit æT constant æFc Script.p æD smsfAutoInit = 6; {auto initialize the script} æKY smsfForms æT constant æFc Script.p æD smsfForms = 13; {Uses contextual forms for letters} æKY smsfLigatures æT constant æFc Script.p æD smsfLigatures = 14; {Uses contextual ligatures} æKY smsfReverse æT constant æFc Script.p æD smsfReverse = 15; {Reverses native text, right-left} æKY smfShowIcon æT constant æFc Script.p æD smfShowIcon = 31; {Show icon even if only one script} æKY smfDualCaret æT constant æFc Script.p æD smfDualCaret = 30; {Use dual caret for mixed direction text} æKY smfNameTagEnab æT constant æFc Script.p æD smfNameTagEnab = 29; {Reserved for internal use} æKY romanSysFond æT constant æFc Script.p æD romanSysFond = $3FFF; {system font id number} æKY romanAppFond æT constant æFc Script.p æD romanAppFond = 3; {application font id number} æKY romanFlags æT constant æFc Script.p æD romanFlags = $0007; {roman settings} æKY smFondStart æT constant æFc Script.p æD smFondStart = $4000; {start from 16K} æKY smFondEnd æT constant æFc Script.p æD smFondEnd = $C000; {past end of range at 48K} æKY smUprHalfCharSet æT constant æFc Script.p æD smUprHalfCharSet = $80; {first char code in top half of std char set} æKY diaeresisUprY æT constant æFc Script.p æD diaeresisUprY = $D9; æKY fraction æT constant æFc Script.p æD fraction = $DA; æKY intlCurrency æT constant æFc Script.p æD intlCurrency = $DB; æKY leftSingGuillemet æT constant æFc Script.p æD leftSingGuillemet = $DC; æKY rightSingGuillemet æT constant æFc Script.p æD rightSingGuillemet = $DD; æKY fiLigature æT constant æFc Script.p æD fiLigature = $DE; æKY flLigature æT constant æFc Script.p æD flLigature = $DF; æKY dblDagger æT constant æFc Script.p æD dblDagger = $E0; æKY centeredDot æT constant æFc Script.p æD centeredDot = $E1; æKY baseSingQuote æT constant æFc Script.p æD baseSingQuote = $E2; æKY baseDblQuote æT constant æFc Script.p æD baseDblQuote = $E3; æKY perThousand æT constant æFc Script.p æD perThousand = $E4; æKY circumflexUprA æT constant æFc Script.p æD circumflexUprA = $E5; æKY circumflexUprE æT constant æFc Script.p æD circumflexUprE = $E6; æKY acuteUprA æT constant æFc Script.p æD acuteUprA = $E7; æKY diaeresisUprE æT constant æFc Script.p æD diaeresisUprE = $E8; æKY graveUprE æT constant æFc Script.p æD graveUprE = $E9; æKY acuteUprI æT constant æFc Script.p æD acuteUprI = $EA; æKY circumflexUprI æT constant æFc Script.p æD circumflexUprI = $EB; æKY diaeresisUprI æT constant æFc Script.p æD diaeresisUprI = $EC; æKY graveUprI æT constant æFc Script.p æD graveUprI = $ED; æKY acuteUprO æT constant æFc Script.p æD acuteUprO = $EE; æKY circumflexUprO æT constant æFc Script.p æD circumflexUprO = $EF; æKY appleLogo æT constant æFc Script.p æD appleLogo = $F0; æKY graveUprO æT constant æFc Script.p æD graveUprO = $F1; æKY acuteUprU æT constant æFc Script.p æD acuteUprU = $F2; æKY circumflexUprU æT constant æFc Script.p æD circumflexUprU = $F3; æKY graveUprU æT constant æFc Script.p æD graveUprU = $F4; æKY dotlessLwrI æT constant æFc Script.p æD dotlessLwrI = $F5; æKY circumflex æT constant æFc Script.p æD circumflex = $F6; æKY tilde æT constant æFc Script.p æD tilde = $F7; æKY macron æT constant æFc Script.p æD macron = $F8; æKY breveMark æT constant æFc Script.p æD breveMark = $F9; æKY overDot æT constant æFc Script.p æD overDot = $FA; æKY ringMark æT constant æFc Script.p æD ringMark = $FB; æKY cedilla æT constant æFc Script.p æD cedilla = $FC; æKY doubleAcute æT constant æFc Script.p æD doubleAcute = $FD; æKY ogonek æT constant æFc Script.p æD ogonek = $FE; æKY hachek æT constant æFc Script.p æD hachek = $FF; æKY fatalDateTime æT constant æFc Script.p æD fatalDateTime = $8000; æKY longDateFound æT constant æFc Script.p æD longDateFound = 1; æKY leftOverChars æT constant æFc Script.p æD leftOverChars = 2; æKY sepNotIntlSep æT constant æFc Script.p æD sepNotIntlSep = 4; æKY fieldOrderNotIntl æT constant æFc Script.p æD fieldOrderNotIntl = 8; æKY extraneousStrings æT constant æFc Script.p æD extraneousStrings = 16; æKY tooManySeps æT constant æFc Script.p æD tooManySeps = 32; æKY sepNotConsistent æT constant æFc Script.p æD sepNotConsistent = 64; æKY tokenErr æT constant æFc Script.p æD tokenErr = $8100; æKY cantReadUtilities æT constant æFc Script.p æD cantReadUtilities = $8200; æKY dateTimeNotFound æT constant æFc Script.p æD dateTimeNotFound = $8400; æKY dateTimeInvalid æT constant æFc Script.p æD dateTimeInvalid = $8800; æKY tokenIntl æT constant æFc Script.p æD tokenIntl = 4; {the itl resource number of the tokenizer} æKY tokenEmpty æT constant æFc Script.p æD tokenEmpty = -1; æKY tokenUnknown æT constant æFc Script.p æD tokenUnknown = 0; æKY tokenWhite æT constant æFc Script.p æD tokenWhite = 1; æKY tokenLeftLit æT constant æFc Script.p æD tokenLeftLit = 2; æKY tokenRightLit æT constant æFc Script.p æD tokenRightLit = 3; æKY tokenAlpha æT constant æFc Script.p æD tokenAlpha = 4; æKY tokenNumeric æT constant æFc Script.p æD tokenNumeric = 5; æKY tokenNewLine æT constant æFc Script.p æD tokenNewLine = 6; æKY tokenLeftComment æT constant æFc Script.p æD tokenLeftComment = 7; æKY tokenRightComment æT constant æFc Script.p æD tokenRightComment = 8; æKY tokenLiteral æT constant æFc Script.p æD tokenLiteral = 9; æKY tokenEscape æT constant æFc Script.p æD tokenEscape = 10; æKY tokenAltNum æT constant æFc Script.p æD tokenAltNum = 11; æKY tokenRealNum æT constant æFc Script.p æD tokenRealNum = 12; æKY tokenAltReal æT constant æFc Script.p æD tokenAltReal = 13; æKY tokenReserve1 æT constant æFc Script.p æD tokenReserve1 = 14; æKY tokenReserve2 æT constant æFc Script.p æD tokenReserve2 = 15; æKY tokenLeftParen æT constant æFc Script.p æD tokenLeftParen = 16; æKY tokenRightParen æT constant æFc Script.p æD tokenRightParen = 17; æKY tokenLeftBracket æT constant æFc Script.p æD tokenLeftBracket = 18; æKY tokenRightBracket æT constant æFc Script.p æD tokenRightBracket = 19; æKY tokenLeftCurly æT constant æFc Script.p æD tokenLeftCurly = 20; æKY tokenRightCurly æT constant æFc Script.p æD tokenRightCurly = 21; æKY tokenLeftEnclose æT constant æFc Script.p æD tokenLeftEnclose = 22; æKY tokenRightEnclose æT constant æFc Script.p æD tokenRightEnclose = 23; æKY tokenPlus æT constant æFc Script.p æD tokenPlus = 24; æKY tokenMinus æT constant æFc Script.p æD tokenMinus = 25; æKY tokenAsterisk æT constant æFc Script.p æD tokenAsterisk = 26; æKY tokenDivide æT constant æFc Script.p æD tokenDivide = 27; æKY tokenPlusMinus æT constant æFc Script.p æD tokenPlusMinus = 28; æKY tokenSlash æT constant æFc Script.p æD tokenSlash = 29; æKY tokenBackSlash æT constant æFc Script.p æD tokenBackSlash = 30; æKY tokenLess æT constant æFc Script.p æD tokenLess = 31; æKY tokenGreat æT constant æFc Script.p æD tokenGreat = 32; æKY tokenEqual æT constant æFc Script.p æD tokenEqual = 33; æKY tokenLessEqual2 æT constant æFc Script.p æD tokenLessEqual2 = 34; æKY tokenLessEqual1 æT constant æFc Script.p æD tokenLessEqual1 = 35; æKY tokenGreatEqual2 æT constant æFc Script.p æD tokenGreatEqual2 = 36; æKY tokenGreatEqual1 æT constant æFc Script.p æD tokenGreatEqual1 = 37; æKY token2Equal æT constant æFc Script.p æD token2Equal = 38; æKY tokenColonEqual æT constant æFc Script.p æD tokenColonEqual = 39; æKY tokenNotEqual æT constant æFc Script.p æD tokenNotEqual = 40; æKY tokenLessGreat æT constant æFc Script.p æD tokenLessGreat = 41; æKY tokenExclamEqual æT constant æFc Script.p æD tokenExclamEqual = 42; æKY tokenExclam æT constant æFc Script.p æD tokenExclam = 43; æKY tokenTilde æT constant æFc Script.p æD tokenTilde = 44; æKY tokenComma æT constant æFc Script.p æD tokenComma = 45; æKY tokenPeriod æT constant æFc Script.p æD tokenPeriod = 46; æKY tokenLeft2Quote æT constant æFc Script.p æD tokenLeft2Quote = 47; æKY tokenRight2Quote æT constant æFc Script.p æD tokenRight2Quote = 48; æKY tokenLeft1Quote æT constant æFc Script.p æD tokenLeft1Quote = 49; æKY tokenRight1Quote æT constant æFc Script.p æD tokenRight1Quote = 50; æKY token2Quote æT constant æFc Script.p æD token2Quote = 51; æKY token1Quote æT constant æFc Script.p æD token1Quote = 52; æKY tokenSemicolon æT constant æFc Script.p æD tokenSemicolon = 53; æKY tokenPercent æT constant æFc Script.p æD tokenPercent = 54; æKY tokenCaret æT constant æFc Script.p æD tokenCaret = 55; æKY tokenUnderline æT constant æFc Script.p æD tokenUnderline = 56; æKY tokenAmpersand æT constant æFc Script.p æD tokenAmpersand = 57; æKY tokenAtSign æT constant æFc Script.p æD tokenAtSign = 58; æKY tokenBar æT constant æFc Script.p æD tokenBar = 59; æKY tokenQuestion æT constant æFc Script.p æD tokenQuestion = 60; æKY tokenPi æT constant æFc Script.p æD tokenPi = 61; æKY tokenRoot æT constant æFc Script.p æD tokenRoot = 62; æKY tokenSigma æT constant æFc Script.p æD tokenSigma = 63; æKY tokenIntegral æT constant æFc Script.p æD tokenIntegral = 64; æKY tokenMicro æT constant æFc Script.p æD tokenMicro = 65; æKY tokenCapPi æT constant æFc Script.p æD tokenCapPi = 66; æKY tokenInfinity æT constant æFc Script.p æD tokenInfinity = 67; æKY tokenColon æT constant æFc Script.p æD tokenColon = 68; æKY tokenHash æT constant æFc Script.p æD tokenHash = 69; æKY tokenDollar æT constant æFc Script.p æD tokenDollar = 70; æKY tokenNoBreakSpace æT constant æFc Script.p æD tokenNoBreakSpace = 71; æKY tokenFraction æT constant æFc Script.p æD tokenFraction = 72; æKY tokenIntlCurrency æT constant æFc Script.p æD tokenIntlCurrency = 73; æKY tokenLeftSingGuillemet æT constant æFc Script.p æD tokenLeftSingGuillemet = 74; æKY tokenRightSingGuillemet æT constant æFc Script.p æD tokenRightSingGuillemet = 75; æKY tokenPerThousand æT constant æFc Script.p æD tokenPerThousand = 76; æKY tokenEllipsis æT constant æFc Script.p æD tokenEllipsis = 77; æKY tokenCenterDot æT constant æFc Script.p æD tokenCenterDot = 78; æKY tokenNil æT constant æFc Script.p æD tokenNil = 127; æKY delimPad æT constant æFc Script.p æD delimPad = -2; æKY tokenTilda æT constant æFc Script.p æD tokenTilda = 44; æKY tokenCarat æT constant æFc Script.p æD tokenCarat = 55; æKY tokLeftQuote æT constant æFc Script.p æD tokLeftQuote = 1; æKY tokRightQuote æT constant æFc Script.p æD tokRightQuote = 2; æKY tokLeadPlacer æT constant æFc Script.p æD tokLeadPlacer = 3; æKY tokLeader æT constant æFc Script.p æD tokLeader = 4; æKY tokNonLeader æT constant æFc Script.p æD tokNonLeader = 5; æKY tokZeroLead æT constant æFc Script.p æD tokZeroLead = 6; æKY tokPercent æT constant æFc Script.p æD tokPercent = 7; æKY tokPlusSign æT constant æFc Script.p æD tokPlusSign = 8; æKY tokMinusSign æT constant æFc Script.p æD tokMinusSign = 9; æKY tokThousands æT constant æFc Script.p æD tokThousands = 10; æKY tokSeparator æT constant æFc Script.p æD tokSeparator = 12; {11 is a reserved field} æKY tokEscape æT constant æFc Script.p æD tokEscape = 13; æKY tokDecPoint æT constant æFc Script.p æD tokDecPoint = 14; æKY tokEPlus æT constant æFc Script.p æD tokEPlus = 15; æKY tokEMinus æT constant æFc Script.p æD tokEMinus = 16; æKY tokMaxSymbols æT constant æFc Script.p æD tokMaxSymbols = 31; æKY curNumberPartsVersion æT constant æFc Script.p æD curNumberPartsVersion = 1; {current version of NumberParts record} æKY fVNumber æT constant æFc Script.p æD fVNumber = 0; {first version of NumFormatString} æKY smallDateBit æT constant æFc Script.p æD smallDateBit = 31; {Restrict valid date/time to range of Time global} æKY togChar12HourBit æT constant æFc Script.p æD togChar12HourBit = 30; {If toggling hour by char, accept hours 1..12 only} æKY togCharZCycleBit æT constant æFc Script.p æD togCharZCycleBit = 29; {Modifier for togChar12HourBit: accept hours 0..11 only} æKY togDelta12HourBit æT constant æFc Script.p æD togDelta12HourBit = 28; {If toggling hour up/down, restrict to 12-hour range (am/pm)} æKY genCdevRangeBit æT constant æFc Script.p æD genCdevRangeBit = 27; {Restrict date/time to range used by genl CDEV} æKY validDateFields æT constant æFc Script.p æD validDateFields = -1; æKY maxDateField æT constant æFc Script.p æD maxDateField = 10; æKY eraMask æT constant æFc Script.p æD eraMask = $0001; æKY yearMask æT constant æFc Script.p æD yearMask = $0002; æKY monthMask æT constant æFc Script.p æD monthMask = $0004; æKY dayMask æT constant æFc Script.p æD dayMask = $0008; æKY hourMask æT constant æFc Script.p æD hourMask = $0010; æKY minuteMask æT constant æFc Script.p æD minuteMask = $0020; æKY secondMask æT constant æFc Script.p æD secondMask = $0040; æKY dayOfWeekMask æT constant æFc Script.p æD dayOfWeekMask = $0080; æKY dayOfYearMask æT constant æFc Script.p æD dayOfYearMask = $0100; æKY weekOfYearMask æT constant æFc Script.p æD weekOfYearMask = $0200; æKY pmMask æT constant æFc Script.p æD pmMask = $0400; æKY dateStdMask æT constant æFc Script.p æD dateStdMask = $007F; æKY toggleUndefined æT constant æFc Script.p æD toggleUndefined = 0; æKY toggleOK æT constant æFc Script.p æD toggleOK = 1; æKY toggleBadField æT constant æFc Script.p æD toggleBadField = 2; æKY toggleBadDelta æT constant æFc Script.p æD toggleBadDelta = 3; æKY toggleBadChar æT constant æFc Script.p æD toggleBadChar = 4; æKY toggleUnknown æT constant æFc Script.p æD toggleUnknown = 5; æKY toggleBadNum æT constant æFc Script.p æD toggleBadNum = 6; æKY toggleOutOfRange æT constant æFc Script.p æD toggleOutOfRange = 7; {synonym for toggleErr3} æKY toggleErr3 æT constant æFc Script.p æD toggleErr3 = 7; æKY toggleErr4 æT constant æFc Script.p æD toggleErr4 = 8; æKY toggleErr5 æT constant æFc Script.p æD toggleErr5 = 9; æKY smTruncEnd æT constant æFc Script.p æD smTruncEnd = 0; { Truncate at end } æKY smTruncMiddle æT constant æFc Script.p æD smTruncMiddle = $4000; { Truncate in middle } æKY smNotTruncated æT constant æFc Script.p æD smNotTruncated = 0; { No truncation was necessary } æKY smTruncated æT constant æFc Script.p æD smTruncated = 1; { Truncation performed } æKY smTruncErr æT constant æFc Script.p æD smTruncErr = -1; { General error } æKY smOnlyStyleRun æT constant æFc Script.p æD smOnlyStyleRun = 0; { This is the only style run on the line} æKY smLeftStyleRun æT constant æFc Script.p æD smLeftStyleRun = 1; { This is leftmost of multiple style runs on the line} æKY smRightStyleRun æT constant æFc Script.p æD smRightStyleRun = 2; { This is rightmost of multiple style runs on the line} æKY smMiddleStyleRun æT constant æFc Script.p æD smMiddleStyleRun = 3; { There are multiple style runs on the line and this is neither the leftmost nor the rightmost. } æKY TokenResults tokenOK tokenOverflow stringOverflow badDelim badEnding crash æT enum æFc Script.p æD TokenResults = (tokenOK,tokenOverflow,stringOverflow,badDelim,badEnding, crash); æKY LongDateField eraField yearField monthField dayField hourField minuteField secondField dayOfWeekField dayOfYearField weekOfYearField pmField res1Field res2Field res3Field æT enum æFc Script.p æD LongDateField = (eraField,yearField,monthField,dayField,hourField,minuteField, secondField,dayOfWeekField,dayOfYearField,weekOfYearField,pmField,res1Field, res2Field,res3Field); æKY StyledLineBreakCode smBreakWord smBreakChar smBreakOverflow æT enum æFc Script.p æD StyledLineBreakCode = (smBreakWord,smBreakChar,smBreakOverflow); æKY FormatClass fPositive fNegative fZero æT enum æFc Script.p æD FormatClass = (fPositive,fNegative,fZero); æKY FormatResultType fFormatOK fBestGuess fOutOfSynch fSpuriousChars fMissingDelimiter fExtraDecimal fMissingLiteral fExtraExp fFormatOverflow fFormStrIsNAN fBadPartsTable fExtraPercent fExtraSeparator fEmptyFormatString æT enum æFc Script.p æD FormatResultType = (fFormatOK,fBestGuess,fOutOfSynch,fSpuriousChars,fMissingDelimiter, fExtraDecimal,fMissingLiteral,fExtraExp,fFormatOverflow,fFormStrIsNAN, fBadPartsTable,fExtraPercent,fExtraSeparator,fEmptyFormatString); æKY CharByteTable æT typedef æFc Script.p æD CharByteTable = PACKED ARRAY [0..255] OF SignedByte; æKY ToggleResults æT typedef æFc Script.p æD ToggleResults = INTEGER; æKY BreakTable æT struct æFc Script.p æD BreakTablePtr = ^BreakTable; BreakTable = RECORD charTypes: ARRAY [0..255] OF SignedByte; tripleLength: INTEGER; triples: ARRAY [0..0] OF INTEGER; END; æKY NBreakTable æT struct æFc Script.p æD NBreakTablePtr = ^NBreakTable; NBreakTable = RECORD flags1: SignedByte; flags2: SignedByte; version: INTEGER; classTableOff: INTEGER; auxCTableOff: INTEGER; backwdTableOff: INTEGER; forwdTableOff: INTEGER; doBackup: INTEGER; reserved: INTEGER; charTypes: ARRAY [0..255] OF SignedByte; tables: ARRAY [0..0] OF INTEGER; END; æKY OffPair æT struct æFc Script.p æD OffPair = RECORD offFirst: INTEGER; offSecond: INTEGER; END; æKY OffsetTable æT typedef æFc Script.p æD OffsetTable = ARRAY [0..2] OF OffPair; æKY ItlcRecord æT struct æFc Script.p æD ItlcRecord = RECORD itlcSystem: INTEGER; {default system script} itlcReserved: INTEGER; {reserved} itlcFontForce: SignedByte; {default font force flag} itlcIntlForce: SignedByte; {default intl force flag} itlcOldKybd: SignedByte; {old keyboard} itlcFlags: SignedByte; {general flags} itlcIconOffset: INTEGER; {script icon offset} itlcIconSide: SignedByte; {icon side} itlcIconRsvd: SignedByte; {rsvd for other icon info} itlcRegionCode: INTEGER; {preferred verXxx code} itlcReserved3: ARRAY [0..33] OF SignedByte; {for future use} END; æKY ItlbRecord æT struct æFc Script.p æD ItlbRecord = RECORD itlbNumber: INTEGER; {itl0 id number} itlbDate: INTEGER; {itl1 id number} itlbSort: INTEGER; {itl2 id number} itlbFlags: INTEGER; {Script flags} itlbToken: INTEGER; {itl4 id number} itlbEncoding: INTEGER; {itl5 ID # (optional; char encoding)} itlbLang: INTEGER; {cur language for script } itlbNumRep: SignedByte; {number representation code} itlbDateRep: SignedByte; {date representation code } itlbKeys: INTEGER; {KCHR id number} itlbIcon: INTEGER; {ID # of SICN or kcs#/kcs4/kcs8 suite.} END; æKY ItlbExtRecord æT struct æFc Script.p æD ItlbExtRecord = RECORD base: ItlbRecord; {un-extended ItlbRecord} itlbLocalSize: LONGINT; {size of script's local record} itlbMonoFond: INTEGER; {default monospace FOND ID} itlbMonoSize: INTEGER; {default monospace font size} itlbPrefFond: INTEGER; {preferred FOND ID} itlbPrefSize: INTEGER; {preferred font size} itlbSmallFond: INTEGER; {default small FOND ID} itlbSmallSize: INTEGER; {default small font size} itlbSysFond: INTEGER; {default system FOND ID} itlbSysSize: INTEGER; {default system font size} itlbAppFond: INTEGER; {default application FOND ID} itlbAppSize: INTEGER; {default application font size} itlbHelpFond: INTEGER; {default Help Mgr FOND ID} itlbHelpSize: INTEGER; {default Help Mgr font size} itlbValidStyles: Style; {set of valid styles for script} itlbAliasStyle: Style; {style (set) to mark aliases} END; æKY MachineLocation æT struct æFc Script.p æD MachineLocation = RECORD latitude: Fract; longitude: Fract; CASE INTEGER OF 0: (dlsDelta: SignedByte); {signed byte; daylight savings delta} 1: (gmtDelta: LONGINT); {must mask - see documentation} END; æKY String2DateStatus æT typedef æFc Script.p æD String2DateStatus = INTEGER; æKY TokenType æT typedef æFc Script.p æD TokenType = INTEGER; æKY DelimType æT typedef æFc Script.p æD DelimType = ARRAY [0..1] OF TokenType; æKY CommentType æT typedef æFc Script.p æD CommentType = ARRAY [0..3] OF TokenType; æKY TokenRec æT struct æFc Script.p æD TokenRecPtr = ^TokenRec; TokenRec = RECORD theToken: TokenType; position: Ptr; {pointer into original Source} length: LONGINT; {length of text in original source} stringPosition: StringPtr; {Pascal/C string copy of identifier} END; æKY TokenBlock æT struct æFc Script.p æD TokenBlockPtr = ^TokenBlock; TokenBlock = RECORD source: Ptr; {pointer to stream of characters} sourceLength: LONGINT; {length of source stream} tokenList: Ptr; {pointer to array of tokens} tokenLength: LONGINT; {maximum length of TokenList} tokenCount: LONGINT; {number tokens generated by tokenizer} stringList: Ptr; {pointer to stream of identifiers} stringLength: LONGINT; {length of string list} stringCount: LONGINT; {number of bytes currently used} doString: BOOLEAN; {make strings & put into StringLIst} doAppend: BOOLEAN; {append to TokenList rather than replace} doAlphanumeric: BOOLEAN; {identifiers may include numeric} doNest: BOOLEAN; {do comments nest?} leftDelims: ARRAY [0..1] OF TokenType; rightDelims: ARRAY [0..1] OF TokenType; leftComment: ARRAY [0..3] OF TokenType; rightComment: ARRAY [0..3] OF TokenType; escapeCode: TokenType; {escape symbol code} decimalCode: TokenType; itlResource: Handle; {ptr to itl4 resource of current script} reserved: ARRAY [0..7] OF LONGINT; {must be zero!} END; æKY UntokenTable æT struct æFc Script.p æD UntokenTablePtr = ^UntokenTable; UntokenTableHandle = ^UntokenTablePtr; UntokenTable = RECORD len: INTEGER; lastToken: INTEGER; index: ARRAY [0..255] OF INTEGER; {index table; last = lastToken} END; æKY DateCacheRecord æT struct æFc Script.p æD DateCachePtr = ^DateCacheRecord; DateCacheRecord = PACKED RECORD hidden: ARRAY [0..255] OF INTEGER; {only for temporary use} END; æKY LongDateTime æT typedef æFc Script.p æD LongDateTime = comp; æKY LongDateCvt æT struct æFc Script.p æD LongDateCvt = RECORD CASE INTEGER OF 0: (c: Comp); 1: (lHigh: LONGINT; lLow: LONGINT); END; æKY LongDateRec æT struct æFc Script.p æD LongDateRec = RECORD CASE INTEGER OF 0: (era: INTEGER; year: INTEGER; month: INTEGER; day: INTEGER; hour: INTEGER; minute: INTEGER; second: INTEGER; dayOfWeek: INTEGER; dayOfYear: INTEGER; weekOfYear: INTEGER; pm: INTEGER; res1: INTEGER; res2: INTEGER; res3: INTEGER); 1: (list: ARRAY [0..13] OF INTEGER); {Index by LongDateField!} 2: (eraAlt: INTEGER; oldDate: DateTimeRec); END; æKY DateDelta æT typedef æFc Script.p æD DateDelta = SignedByte; æKY TogglePB æT struct æFc Script.p æD TogglePB = RECORD togFlags: LONGINT; {caller normally sets low word to dateStdMask=$7F} amChars: ResType; {from intl0} pmChars: ResType; {from intl0} reserved: ARRAY [0..3] OF LONGINT; END; æKY FormatOrder æT typedef æFc Script.p æD FormatOrder = ARRAY [0..0] OF INTEGER; æKY FormatOrderPtr æT typedef æFc Script.p æD FormatOrderPtr = ^FormatOrder; æKY FormatStatus æT typedef æFc Script.p æD FormatStatus = INTEGER; æKY WideChar æT struct æFc Script.p æD WideChar = RECORD CASE BOOLEAN OF TRUE: (a: PACKED ARRAY [0..1] OF CHAR); {0 is the high order character} FALSE: (b: INTEGER); END; æKY WideCharArr æT struct æFc Script.p æD WideCharArr = RECORD size: INTEGER; data: PACKED ARRAY [0..9] OF WideChar; END; æKY NumFormatString æT struct æFc Script.p æD NumFormatString = PACKED RECORD fLength: Byte; fVersion: Byte; data: PACKED ARRAY [0..253] OF SignedByte; {private data} END; æKY Itl4Rec æT struct æFc Script.p æD Itl4Ptr = ^Itl4Rec; Itl4Handle = ^Itl4Ptr; Itl4Rec = RECORD flags: INTEGER; resourceType: LONGINT; resourceNum: INTEGER; version: INTEGER; resHeader1: LONGINT; resHeader2: LONGINT; numTables: INTEGER; {one-based} mapOffset: LONGINT; {offsets are from record start} strOffset: LONGINT; fetchOffset: LONGINT; unTokenOffset: LONGINT; defPartsOffset: LONGINT; resOffset6: LONGINT; resOffset7: LONGINT; resOffset8: LONGINT; END; æKY NItl4Rec æT struct æFc Script.p æD NItl4Ptr = ^NItl4Rec; NItl4Handle = ^NItl4Ptr; NItl4Rec = RECORD flags: INTEGER; resourceType: LONGINT; resourceNum: INTEGER; version: INTEGER; format: INTEGER; resHeader: INTEGER; resHeader2: LONGINT; numTables: INTEGER; {one-based} mapOffset: LONGINT; {offsets are from record start} strOffset: LONGINT; fetchOffset: LONGINT; unTokenOffset: LONGINT; defPartsOffset: LONGINT; whtSpListOffset: LONGINT; resOffset7: LONGINT; resOffset8: LONGINT; resLength1: INTEGER; resLength2: INTEGER; resLength3: INTEGER; unTokenLength: INTEGER; defPartsLength: INTEGER; whtSpListLength: INTEGER; resLength7: INTEGER; resLength8: INTEGER; END; æKY NumberParts æT struct æFc Script.p æD NumberPartsPtr = ^NumberParts; NumberParts = RECORD version: INTEGER; data: ARRAY [1..31] OF WideChar; {index by [tokLeftQuote..tokMaxSymbols]} pePlus: WideCharArr; peMinus: WideCharArr; peMinusPlus: WideCharArr; altNumTable: WideCharArr; reserved: PACKED ARRAY [0..19] OF CHAR; END; æKY FVector æT struct æFc Script.p æD FVector = RECORD start: INTEGER; length: INTEGER; END; æKY TripleInt æT typedef æFc Script.p æD TripleInt = ARRAY [0..2] OF FVector; { index by [fPositive..fZero] } æKY ScriptRunStatus æT struct æFc Script.p æD ScriptRunStatus = RECORD script: SignedByte; variant: SignedByte; END; æKY TruncCode æT typedef æFc Script.p æD TruncCode = INTEGER; æKY JustStyleCode æT typedef æFc Script.p æD JustStyleCode = INTEGER; æKY FontScript æT Function æFc Script.p æD FUNCTION FontScript: INTEGER; INLINE $2F3C,$8200,$0000,$A8B5; æKY IntlScript æT Function æFc Script.p æD FUNCTION IntlScript: INTEGER; INLINE $2F3C,$8200,$0002,$A8B5; æKY KeyScript æT Function æFc Script.p æD PROCEDURE KeyScript(code: INTEGER); INLINE $2F3C,$8002,$0004,$A8B5; æKY Font2Script æT Function æFc Script.p æD FUNCTION Font2Script(fontNumber: INTEGER): INTEGER; INLINE $2F3C,$8202,$0006,$A8B5; æKY GetEnvirons æT Function æFc Script.p æD FUNCTION GetEnvirons(verb: INTEGER): LONGINT; INLINE $2F3C,$8402,$0008,$A8B5; æKY SetEnvirons æT Function æFc Script.p æD FUNCTION SetEnvirons(verb: INTEGER;param: LONGINT): OSErr; INLINE $2F3C,$8206,$000A,$A8B5; æKY GetScript æT Function æFc Script.p æD FUNCTION GetScript(script: INTEGER;verb: INTEGER): LONGINT; INLINE $2F3C,$8404,$000C,$A8B5; æKY SetScript æT Function æFc Script.p æD FUNCTION SetScript(script: INTEGER;verb: INTEGER;param: LONGINT): OSErr; INLINE $2F3C,$8208,$000E,$A8B5; æKY CharByte æT Function æFc Script.p æD FUNCTION CharByte(textBuf: Ptr;textOffset: INTEGER): INTEGER; INLINE $2F3C,$8206,$0010,$A8B5; æKY CharType æT Function æFc Script.p æD FUNCTION CharType(textBuf: Ptr;textOffset: INTEGER): INTEGER; INLINE $2F3C,$8206,$0012,$A8B5; æKY Pixel2Char æT Function æFc Script.p æD FUNCTION Pixel2Char(textBuf: Ptr;textLen: INTEGER;slop: INTEGER;pixelWidth: INTEGER; VAR leadingEdge: BOOLEAN): INTEGER; INLINE $2F3C,$820E,$0014,$A8B5; æKY Char2Pixel æT Function æFc Script.p æD FUNCTION Char2Pixel(textBuf: Ptr;textLen: INTEGER;slop: INTEGER;offset: INTEGER; direction: INTEGER): INTEGER; INLINE $2F3C,$820C,$0016,$A8B5; æKY Transliterate æT Function æFc Script.p æD FUNCTION Transliterate(srcHandle: Handle;dstHandle: Handle;target: INTEGER; srcMask: LONGINT): OSErr; INLINE $2F3C,$820E,$0018,$A8B5; æKY FindWord æT Function æFc Script.p æD PROCEDURE FindWord(textPtr: Ptr;textLength: INTEGER;offset: INTEGER;leadingEdge: BOOLEAN; breaks: BreakTablePtr;VAR offsets: OffsetTable); INLINE $2F3C,$8012,$001A,$A8B5; æKY HiliteText æT Function æFc Script.p æD PROCEDURE HiliteText(textPtr: Ptr;textLength: INTEGER;firstOffset: INTEGER; secondOffset: INTEGER;VAR offsets: OffsetTable); INLINE $2F3C,$800E,$001C,$A8B5; æKY DrawJust æT Function æFc Script.p æD PROCEDURE DrawJust(textPtr: Ptr;textLength: INTEGER;slop: INTEGER); INLINE $2F3C,$8008,$001E,$A8B5; æKY MeasureJust æT Function æFc Script.p æD PROCEDURE MeasureJust(textPtr: Ptr;textLength: INTEGER;slop: INTEGER;charLocs: Ptr); INLINE $2F3C,$800C,$0020,$A8B5; æKY ParseTable æT Function æFc Script.p æD FUNCTION ParseTable(VAR table: CharByteTable): BOOLEAN; INLINE $2F3C,$8204,$0022,$A8B5; æKY GetDefFontSize æT Function æFc Script.p æD FUNCTION GetDefFontSize: INTEGER; INLINE $3EB8,$0BA8,$6604,$3EBC,$000C; æKY GetSysFont æT Function æFc Script.p æD FUNCTION GetSysFont: INTEGER; INLINE $3EB8,$0BA6; æKY GetAppFont æT Function æFc Script.p æD FUNCTION GetAppFont: INTEGER; INLINE $3EB8,$0984; æKY GetMBarHeight æT Function æFc Script.p æD FUNCTION GetMBarHeight: INTEGER; INLINE $3EB8,$0BAA; æKY GetSysJust æT Function æFc Script.p æD FUNCTION GetSysJust: INTEGER; INLINE $3EB8,$0BAC; æKY SetSysJust æT Function æFc Script.p æD PROCEDURE SetSysJust(newJust: INTEGER); INLINE $31DF,$0BAC; æKY ReadLocation æT Function æFc Script.p æD PROCEDURE ReadLocation(VAR loc: MachineLocation); INLINE $205F,$203C,$000C,$00E4,$A051; æKY WriteLocation æT Function æFc Script.p æD PROCEDURE WriteLocation(loc: MachineLocation); INLINE $205F,$203C,$000C,$00E4,$A052; æKY UprText æT Function æFc Script.p æD PROCEDURE UprText(textPtr: Ptr;len: INTEGER); INLINE $301F,$205F,$A054; æKY LwrText æT Function æFc Script.p æD PROCEDURE LwrText(textPtr: Ptr;len: INTEGER); INLINE $301F,$205F,$A056; æKY LowerText æT Function æFc Script.p æD PROCEDURE LowerText(textPtr: Ptr;len: INTEGER); INLINE $301F,$205F,$A056; æKY StripText æT Function æFc Script.p æD PROCEDURE StripText(textPtr: Ptr;len: INTEGER); INLINE $301F,$205F,$A256; æKY UpperText æT Function æFc Script.p æD PROCEDURE UpperText(textPtr: Ptr;len: INTEGER); INLINE $301F,$205F,$A456; æKY StripUpperText æT Function æFc Script.p æD PROCEDURE StripUpperText(textPtr: Ptr;len: INTEGER); INLINE $301F,$205F,$A656; æKY StyledLineBreak æT Function æFc Script.p æD FUNCTION StyledLineBreak(textPtr: Ptr;textLen: LONGINT;textStart: LONGINT; textEnd: LONGINT;flags: LONGINT;VAR textWidth: Fixed;VAR textOffset: LONGINT): StyledLineBreakCode; INLINE $2F3C,$821C,$FFFE,$A8B5; æKY GetFormatOrder æT Function æFc Script.p æD PROCEDURE GetFormatOrder(ordering: FormatOrderPtr;firstFormat: INTEGER; lastFormat: INTEGER;lineRight: BOOLEAN;rlDirProc: Ptr;dirParam: Ptr); INLINE $2F3C,$8012,$FFFC,$A8B5; æKY IntlTokenize æT Function æFc Script.p æD FUNCTION IntlTokenize(tokenParam: TokenBlockPtr): TokenResults; INLINE $2F3C,$8204,$FFFA,$A8B5; æKY InitDateCache æT Function æFc Script.p æD FUNCTION InitDateCache(theCache: DateCachePtr): OSErr; INLINE $2F3C,$8204,$FFF8,$A8B5; æKY String2Date æT Function æFc Script.p æD FUNCTION String2Date(textPtr: Ptr;textLen: LONGINT;theCache: DateCachePtr; VAR lengthUsed: LONGINT;VAR dateTime: LongDateRec): String2DateStatus; INLINE $2F3C,$8214,$FFF6,$A8B5; æKY String2Time æT Function æFc Script.p æD FUNCTION String2Time(textPtr: Ptr;textLen: LONGINT;theCache: DateCachePtr; VAR lengthUsed: LONGINT;VAR dateTime: LongDateRec): String2DateStatus; INLINE $2F3C,$8214,$FFF4,$A8B5; æKY LongDate2Secs æT Function æFc Script.p æD PROCEDURE LongDate2Secs(lDate: LongDateRec;VAR lSecs: LongDateTime); INLINE $2F3C,$8008,$FFF2,$A8B5; æKY LongSecs2Date æT Function æFc Script.p æD PROCEDURE LongSecs2Date(VAR lSecs: LongDateTime;VAR lDate: LongDateRec); INLINE $2F3C,$8008,$FFF0,$A8B5; æKY ToggleDate æT Function æFc Script.p æD FUNCTION ToggleDate(VAR lSecs: LongDateTime;field: LongDateField;delta: DateDelta; ch: INTEGER;params: TogglePB): ToggleResults; INLINE $2F3C,$820E,$FFEE,$A8B5; æKY Str2Format æT Function æFc Script.p æD FUNCTION Str2Format(inString: Str255;partsTable: NumberParts;VAR outString: NumFormatString): FormatStatus; INLINE $2F3C,$820C,$FFEC,$A8B5; æKY Format2Str æT Function æFc Script.p æD FUNCTION Format2Str(myCanonical: NumFormatString;partsTable: NumberParts; VAR outString: Str255;VAR positions: TripleInt): FormatStatus; INLINE $2F3C,$8210,$FFEA,$A8B5; æKY FormatX2Str æT Function æFc Script.p æD FUNCTION FormatX2Str(x: extended;myCanonical: NumFormatString;partsTable: NumberParts; VAR outString: Str255): FormatStatus; INLINE $2F3C,$8210,$FFE8,$A8B5; æKY FormatStr2X æT Function æFc Script.p æD FUNCTION FormatStr2X(source: Str255;myCanonical: NumFormatString;partsTable: NumberParts; VAR x: extended): FormatStatus; INLINE $2F3C,$8210,$FFE6,$A8B5; æKY PortionText æT Function æFc Script.p æD FUNCTION PortionText(textPtr: Ptr;textLen: LONGINT): Fixed; INLINE $2F3C,$8408,$0024,$A8B5; æKY FindScriptRun æT Function æFc Script.p æD FUNCTION FindScriptRun(textPtr: Ptr;textLen: LONGINT;VAR lenUsed: LONGINT): ScriptRunStatus; INLINE $2F3C,$820C,$0026,$A8B5; æKY VisibleLength æT Function æFc Script.p æD FUNCTION VisibleLength(textPtr: Ptr;textLen: LONGINT): LONGINT; INLINE $2F3C,$8408,$0028,$A8B5; æKY ValidDate æT Function æFc Script.p æD FUNCTION ValidDate(VAR vDate: LongDateRec;flags: LONGINT;VAR newSecs: LongDateTime): INTEGER; INLINE $2F3C,$8204,$FFE4,$A8B5; æKY NFindWord æT Function æFc Script.p æD PROCEDURE NFindWord(textPtr: Ptr;textLength: INTEGER;offset: INTEGER;leadingEdge: BOOLEAN; nbreaks: NBreakTablePtr;VAR offsets: OffsetTable); INLINE $2F3C,$8012,$FFE2,$A8B5; æKY TruncString æT Function æFc Script.p æD FUNCTION TruncString(width: INTEGER;VAR theString: Str255;truncWhere: TruncCode): INTEGER; INLINE $2F3C,$8208,$FFE0,$A8B5; æKY TruncText æT Function æFc Script.p æD FUNCTION TruncText(width: INTEGER;textPtr: Ptr;VAR length: INTEGER;truncWhere: TruncCode): INTEGER; INLINE $2F3C,$820C,$FFDE,$A8B5; æKY ReplaceText æT Function æFc Script.p æD FUNCTION ReplaceText(baseText: Handle;substitutionText: Handle;key: Str15): INTEGER; INLINE $2F3C,$820C,$FFDC,$A8B5; æKY NPixel2Char æT Function æFc Script.p æD FUNCTION NPixel2Char(textBuf: Ptr;textLen: LONGINT;slop: Fixed;pixelWidth: Fixed; VAR leadingEdge: BOOLEAN;VAR widthRemaining: Fixed;styleRunPosition: JustStyleCode; numer: Point;denom: Point): INTEGER; INLINE $2F3C,$8222,$002E,$A8B5; æKY NChar2Pixel æT Function æFc Script.p æD FUNCTION NChar2Pixel(textBuf: Ptr;textLen: LONGINT;slop: Fixed;offset: LONGINT; direction: INTEGER;styleRunPosition: JustStyleCode;numer: Point;denom: Point): INTEGER; INLINE $2F3C,$821C,$0030,$A8B5; æKY NDrawJust æT Function æFc Script.p æD PROCEDURE NDrawJust(textPtr: Ptr;textLength: LONGINT;slop: Fixed;styleRunPosition: JustStyleCode; numer: Point;denom: Point); INLINE $2F3C,$8016,$0032,$A8B5; æKY NMeasureJust æT Function æFc Script.p æD PROCEDURE NMeasureJust(textPtr: Ptr;textLength: LONGINT;slop: Fixed;charLocs: Ptr; styleRunPosition: JustStyleCode;numer: Point;denom: Point); INLINE $2F3C,$801A,$0034,$A8B5; æKY NPortionText æT Function æFc Script.p æD FUNCTION NPortionText(textPtr: Ptr;textLen: LONGINT;styleRunPosition: JustStyleCode; numer: Point;denom: Point): Fixed; INLINE $2F3C,$8412,$0036,$A8B5; æKY SCSI.p æKL SCSICmd SCSIComplete SCSIGet SCSIMsgIn SCSIMsgOut SCSIRBlind SCSIRead SCSIReset SCSISelAtn SCSISelect SCSIStat SCSIWBlind SCSIWrite Block0 Partition pMapSIG sbSIGWord scAdd scArbNBErr scBadParmsErr scBusTOErr scCommErr scComp scCompareErr scComplPhaseErr scInc scLoop scMgrBusyErr scMove scNoInc scNop scPhaseErr scSequenceErr SCSIInstr scStop æKY scInc æT constant æFc SCSI.p æD scInc = 1; æKY scNoInc æT constant æFc SCSI.p æD scNoInc = 2; æKY scAdd æT constant æFc SCSI.p æD scAdd = 3; æKY scMove æT constant æFc SCSI.p æD scMove = 4; æKY scLoop æT constant æFc SCSI.p æD scLoop = 5; æKY scNop æT constant æFc SCSI.p æD scNop = 6; æKY scStop æT constant æFc SCSI.p æD scStop = 7; æKY scComp æT constant æFc SCSI.p æD scComp = 8; æKY scCommErr æT constant æFc SCSI.p æD scCommErr = 2; {communications error, operation timeout} æKY scArbNBErr æT constant æFc SCSI.p æD scArbNBErr = 3; {arbitration timeout waiting for not BSY} æKY scBadParmsErr æT constant æFc SCSI.p æD scBadParmsErr = 4; {bad parameter or TIB opcode} æKY scPhaseErr æT constant æFc SCSI.p æD scPhaseErr = 5; {SCSI bus not in correct phase for attempted operation} æKY scCompareErr æT constant æFc SCSI.p æD scCompareErr = 6; {data compare error} æKY scMgrBusyErr æT constant æFc SCSI.p æD scMgrBusyErr = 7; {SCSI Manager busy } æKY scSequenceErr æT constant æFc SCSI.p æD scSequenceErr = 8; {attempted operation is out of sequence} æKY scBusTOErr æT constant æFc SCSI.p æD scBusTOErr = 9; {CPU bus timeout} æKY scComplPhaseErr æT constant æFc SCSI.p æD scComplPhaseErr = 10; {SCSI bus wasn't in Status phase} æKY sbSIGWord æT constant æFc SCSI.p æD sbSIGWord = $4552; æKY pMapSIG æT constant æFc SCSI.p æD pMapSIG = $504D; æKY Block0 æT struct æFc SCSI.p æD Block0 = PACKED RECORD sbSig: INTEGER; {unique value for SCSI block 0} sbBlkSize: INTEGER; {block size of device} sbBlkCount: LONGINT; {number of blocks on device} sbDevType: INTEGER; {device type} sbDevId: INTEGER; {device id} sbData: LONGINT; {not used} sbDrvrCount: INTEGER; {driver descriptor count} ddBlock: LONGINT; {1st driver's starting block} ddSize: INTEGER; {size of 1st driver (512-byte blks)} ddType: INTEGER; {system type (1 for Mac+)} ddPad: ARRAY [0..242] OF INTEGER; {ARRAY[0..242] OF INTEGER; not used} END; æKY Partition æT struct æFc SCSI.p æD Partition = PACKED RECORD pmSig: INTEGER; {unique value for map entry blk} pmSigPad: INTEGER; {currently unused} pmMapBlkCnt: LONGINT; {# of blks in partition map} pmPyPartStart: LONGINT; {physical start blk of partition} pmPartBlkCnt: LONGINT; {# of blks in this partition} pmPartName: PACKED ARRAY [0..31] OF CHAR; {ASCII partition name} pmParType: PACKED ARRAY [0..31] OF CHAR; {ASCII partition type} pmLgDataStart: LONGINT; {log. # of partition's 1st data blk} pmDataCnt: LONGINT; {# of blks in partition's data area} pmPartStatus: LONGINT; {bit field for partition status} pmLgBootStart: LONGINT; {log. blk of partition's boot code} pmBootSize: LONGINT; {number of bytes in boot code} pmBootAddr: LONGINT; {memory load address of boot code} pmBootAddr2: LONGINT; {currently unused} pmBootEntry: LONGINT; {entry point of boot code} pmBootEntry2: LONGINT; {currently unused} pmBootCksum: LONGINT; {checksum of boot code} pmProcessor: PACKED ARRAY [0..15] OF CHAR; {ASCII for the processor type} pmPad: ARRAY [0..187] OF INTEGER; {512 bytes long currently unused} END; æKY SCSIInstr æT struct æFc SCSI.p æD SCSIInstr = RECORD scOpcode: INTEGER; scParam1: LONGINT; scParam2: LONGINT; END; æKY SCSIReset æT Function æFc SCSI.p æD FUNCTION SCSIReset: OSErr; INLINE $4267,$A815; æKY SCSIGet æT Function æFc SCSI.p æD FUNCTION SCSIGet: OSErr; INLINE $3F3C,$0001,$A815; æKY SCSISelect æT Function æFc SCSI.p æD FUNCTION SCSISelect(targetID: INTEGER): OSErr; INLINE $3F3C,$0002,$A815; æKY SCSICmd æT Function æFc SCSI.p æD FUNCTION SCSICmd(buffer: Ptr;count: INTEGER): OSErr; INLINE $3F3C,$0003,$A815; æKY SCSIRead æT Function æFc SCSI.p æD FUNCTION SCSIRead(tibPtr: Ptr): OSErr; INLINE $3F3C,$0005,$A815; æKY SCSIRBlind æT Function æFc SCSI.p æD FUNCTION SCSIRBlind(tibPtr: Ptr): OSErr; INLINE $3F3C,$0008,$A815; æKY SCSIWrite æT Function æFc SCSI.p æD FUNCTION SCSIWrite(tibPtr: Ptr): OSErr; INLINE $3F3C,$0006,$A815; æKY SCSIWBlind æT Function æFc SCSI.p æD FUNCTION SCSIWBlind(tibPtr: Ptr): OSErr; INLINE $3F3C,$0009,$A815; æKY SCSIComplete æT Function æFc SCSI.p æD FUNCTION SCSIComplete(VAR stat: INTEGER;VAR message: INTEGER;wait: LONGINT): OSErr; INLINE $3F3C,$0004,$A815; æKY SCSIStat æT Function æFc SCSI.p æD FUNCTION SCSIStat: INTEGER; INLINE $3F3C,$000A,$A815; æKY SCSISelAtn æT Function æFc SCSI.p æD FUNCTION SCSISelAtn(targetID: INTEGER): OSErr; INLINE $3F3C,$000B,$A815; æKY SCSIMsgIn æT Function æFc SCSI.p æD FUNCTION SCSIMsgIn(VAR message: INTEGER): OSErr; INLINE $3F3C,$000C,$A815; æKY SCSIMsgOut æT Function æFc SCSI.p æD FUNCTION SCSIMsgOut(message: INTEGER): OSErr; INLINE $3F3C,$000D,$A815; æKY SegLoad.p æKL ClrAppFiles CountAppFiles ExitToShell GetAppFiles GetAppParms UnloadSeg AppFile appOpen appPrint æKY appOpen æT constant æFc SegLoad.p æD appOpen = 0; {Open the Document (s)} æKY appPrint æT constant æFc SegLoad.p æD appPrint = 1; {Print the Document (s)} æKY AppFile æT struct æFc SegLoad.p æD AppFile = RECORD vRefNum: INTEGER; fType: OSType; versNum: INTEGER; {versNum in high byte} fName: Str255; END; æKY UnloadSeg æT Function æFc SegLoad.p æD PROCEDURE UnloadSeg(routineAddr: Ptr); INLINE $A9F1; æKY ExitToShell æT Function æFc SegLoad.p æD PROCEDURE ExitToShell; INLINE $A9F4; æKY GetAppParms æT Function æFc SegLoad.p æD PROCEDURE GetAppParms(VAR apName: Str255;VAR apRefNum: INTEGER;VAR apParam: Handle); INLINE $A9F5; æKY CountAppFiles æT Function æFc SegLoad.p æD PROCEDURE CountAppFiles(VAR message: INTEGER;VAR count: INTEGER); æKY GetAppFiles æT Function æFc SegLoad.p æD PROCEDURE GetAppFiles(index: INTEGER;VAR theFile: AppFile); æKY ClrAppFiles æT Function æFc SegLoad.p æD PROCEDURE ClrAppFiles(index: INTEGER); æKY Serial.p æKL SerClrBrk SerGetBuf SerHShake SerReset SerSetBrk SerSetBuf SerStatus ainRefNum aoutRefNum baud1200 baud1800 baud19200 baud2400 baud300 baud3600 baud4800 baud57600 baud600 baud7200 baud9600 binRefNum boutRefNum breakEvent ctsEvent data5 data6 data7 data8 dtrNegated evenParity noParity oddParity SerShk SerStaRec sPortA sPortB SPortSel stop10 stop15 stop20 xOffWasSent æKY baud300 æT constant æFc Serial.p æD baud300 = 380; æKY baud600 æT constant æFc Serial.p æD baud600 = 189; æKY baud1200 æT constant æFc Serial.p æD baud1200 = 94; æKY baud1800 æT constant æFc Serial.p æD baud1800 = 62; æKY baud2400 æT constant æFc Serial.p æD baud2400 = 46; æKY baud3600 æT constant æFc Serial.p æD baud3600 = 30; æKY baud4800 æT constant æFc Serial.p æD baud4800 = 22; æKY baud7200 æT constant æFc Serial.p æD baud7200 = 14; æKY baud9600 æT constant æFc Serial.p æD baud9600 = 10; æKY baud19200 æT constant æFc Serial.p æD baud19200 = 4; æKY baud57600 æT constant æFc Serial.p æD baud57600 = 0; æKY stop10 æT constant æFc Serial.p æD stop10 = 16384; æKY stop15 æT constant æFc Serial.p æD stop15 = -32768; æKY stop20 æT constant æFc Serial.p æD stop20 = -16384; æKY noParity æT constant æFc Serial.p æD noParity = 0; æKY oddParity æT constant æFc Serial.p æD oddParity = 4096; æKY evenParity æT constant æFc Serial.p æD evenParity = 12288; æKY data5 æT constant æFc Serial.p æD data5 = 0; æKY data6 æT constant æFc Serial.p æD data6 = 2048; æKY data7 æT constant æFc Serial.p æD data7 = 1024; æKY data8 æT constant æFc Serial.p æD data8 = 3072; æKY ctsEvent æT constant æFc Serial.p æD ctsEvent = 32; æKY breakEvent æT constant æFc Serial.p æD breakEvent = 128; æKY xOffWasSent æT constant æFc Serial.p æD xOffWasSent = 128; æKY dtrNegated æT constant æFc Serial.p æD dtrNegated = 64; æKY ainRefNum æT constant æFc Serial.p æD ainRefNum = -6; {serial port A input} æKY aoutRefNum æT constant æFc Serial.p æD aoutRefNum = -7; {serial port A output} æKY binRefNum æT constant æFc Serial.p æD binRefNum = -8; {serial port B input} æKY boutRefNum æT constant æFc Serial.p æD boutRefNum = -9; {serial port B output} æKY SPortSel sPortA sPortB æT enum æFc Serial.p æD SPortSel = (sPortA,sPortB); æKY SerShk æT struct æFc Serial.p æD SerShk = PACKED RECORD fXOn: Byte; {XOn flow control enabled flag} fCTS: Byte; {CTS flow control enabled flag} xOn: CHAR; {XOn character} xOff: CHAR; {XOff character} errs: Byte; {errors mask bits} evts: Byte; {event enable mask bits} fInX: Byte; {Input flow control enabled flag} fDTR: Byte; {DTR input flow control flag} END; æKY SerStaRec æT struct æFc Serial.p æD SerStaRec = PACKED RECORD cumErrs: Byte; xOffSent: Byte; rdPend: Byte; wrPend: Byte; ctsHold: Byte; xOffHold: Byte; END; æKY SerReset æT Function æFc Serial.p æD FUNCTION SerReset(refNum: INTEGER;serConfig: INTEGER): OSErr; æKY SerSetBuf æT Function æFc Serial.p æD FUNCTION SerSetBuf(refNum: INTEGER;serBPtr: Ptr;serBLen: INTEGER): OSErr; æKY SerHShake æT Function æFc Serial.p æD FUNCTION SerHShake(refNum: INTEGER;flags: SerShk): OSErr; æKY SerSetBrk æT Function æFc Serial.p æD FUNCTION SerSetBrk(refNum: INTEGER): OSErr; æKY SerClrBrk æT Function æFc Serial.p æD FUNCTION SerClrBrk(refNum: INTEGER): OSErr; æKY SerGetBuf æT Function æFc Serial.p æD FUNCTION SerGetBuf(refNum: INTEGER;VAR count: LONGINT): OSErr; æKY SerStatus æT Function æFc Serial.p æD FUNCTION SerStatus(refNum: INTEGER;VAR serSta: SerStaRec): OSErr; æKY ShutDown.p æKL ShutDwnInstall ShutDwnPower ShutDwnRemove ShutDwnStart sdOnDrivers sdOnPowerOff sdOnRestart sdOnUnmount sdRestartOrPower æKY sdOnPowerOff æT constant æFc ShutDown.p æD sdOnPowerOff = 1; {call procedure before power off.} æKY sdOnRestart æT constant æFc ShutDown.p æD sdOnRestart = 2; {call procedure before restart.} æKY sdOnUnmount æT constant æFc ShutDown.p æD sdOnUnmount = 4; {call procedure before unmounting.} æKY sdOnDrivers æT constant æFc ShutDown.p æD sdOnDrivers = 8; {call procedure before closing drivers.} æKY sdRestartOrPower æT constant æFc ShutDown.p æD sdRestartOrPower = 3; {call before either power off or restart.} æKY ShutDwnPower æT Function æFc ShutDown.p æD PROCEDURE ShutDwnPower; INLINE $3F3C,$0001,$A895; æKY ShutDwnStart æT Function æFc ShutDown.p æD PROCEDURE ShutDwnStart; INLINE $3F3C,$0002,$A895; æKY ShutDwnInstall æT Function æFc ShutDown.p æD PROCEDURE ShutDwnInstall(shutDownProc: ProcPtr;flags: INTEGER); INLINE $3F3C,$0003,$A895; æKY ShutDwnRemove æT Function æFc ShutDown.p æD PROCEDURE ShutDwnRemove(shutDownProc: ProcPtr); INLINE $3F3C,$0004,$A895; æKY Slots.p æKL InitSDeclMgr InsertSRTRec OpenSlot OpenSlotAsync OpenSlotSync SCalcSPointer SCalcStep SCardChanged SCkCardStat SDeleteSRTRec SetSRsrcState SExec SFindBigDevBase SFindDevBase SFindSInfoRecPtr SFindSRsrcPtr SFindStruct SGetBlock SGetCString SGetDriver SGetSRsrc SGetSRsrcPtr SGetTypeSRsrc SInitPRAMRecs SInitSRsrcTable SIntInstall SIntRemove SNextSRsrc SNextTypeSRsrc SOffsetData SPrimaryInit SPtrToSlot SPutPRAMRec SReadByte SReadDrvrName SReadFHeader SReadInfo SReadLong SReadPBSize SReadPRAMRec SReadStruct SReadWord SRsrcInfo SSearchSRT SUpdateSRT SVersion fall fCardIsChanged fCkForNext fCkForSame FHeaderRec FHeaderRecPtr fnext foneslot fWarmStart SDMRecord SEBlock SInfoRecord SInfoRecPtr SlotIntQElement SpBlock SpBlockPtr SQElemPtr stateNil statePInit statePRAMInit stateSDMInit stateSInit æKY fCardIsChanged æT constant æFc Slots.p æD fCardIsChanged = 1; {Card is Changed field in StatusFlags field of sInfoArray} æKY fCkForSame æT constant æFc Slots.p æD fCkForSame = 0; {For SearchSRT. Flag to check for SAME sResource in the table. } æKY fCkForNext æT constant æFc Slots.p æD fCkForNext = 1; {For SearchSRT. Flag to check for NEXT sResource in the table. } æKY fWarmStart æT constant æFc Slots.p æD fWarmStart = 2; {If this bit is set then warm start else cold start.} æKY stateNil æT constant æFc Slots.p æD stateNil = 0; {State} æKY stateSDMInit æT constant æFc Slots.p æD stateSDMInit = 1; {:Slot declaration manager Init} æKY statePRAMInit æT constant æFc Slots.p æD statePRAMInit = 2; {:sPRAM record init} æKY statePInit æT constant æFc Slots.p æD statePInit = 3; {:Primary init} æKY stateSInit æT constant æFc Slots.p æD stateSInit = 4; {:Secondary init} æKY fall æT constant æFc Slots.p æD fall = 0; { bit 0: set=search enabled/disabled sRsrc's } æKY foneslot æT constant æFc Slots.p æD foneslot = 1; { 1: set=search sRsrc's in given slot only } æKY fnext æT constant æFc Slots.p æD fnext = 2; { 2: set=search for next sRsrc } æKY SlotIntQElement æT struct æFc Slots.p æD SQElemPtr = ^SlotIntQElement; SlotIntQElement = RECORD sqLink: Ptr; {ptr to next element} sqType: INTEGER; {queue type ID for validity} sqPrio: INTEGER; {priority} sqAddr: ProcPtr; {interrupt service routine} sqParm: LONGINT; {optional A1 parameter} END; æKY SpBlock æT struct æFc Slots.p æD SpBlockPtr = ^SpBlock; SpBlock = PACKED RECORD spResult: LONGINT; {FUNCTION Result} spsPointer: Ptr; {structure pointer} spSize: LONGINT; {size of structure} spOffsetData: LONGINT; {offset/data field used by sOffsetData} spIOFileName: Ptr; {ptr to IOFile name for sDisDrvrName} spsExecPBlk: Ptr; {pointer to sExec parameter block.} spParamData: LONGINT; {misc parameter data (formerly spStackPtr).} spMisc: LONGINT; {misc field for SDM.} spReserved: LONGINT; {reserved for future expansion} spIOReserved: INTEGER; {Reserved field of Slot Resource Table} spRefNum: INTEGER; {RefNum} spCategory: INTEGER; {sType: Category} spCType: INTEGER; {Type} spDrvrSW: INTEGER; {DrvrSW} spDrvrHW: INTEGER; {DrvrHW} spTBMask: SignedByte; {type bit mask bits 0..3 mask words 0..3} spSlot: SignedByte; {slot number} spID: SignedByte; {structure ID} spExtDev: SignedByte; {ID of the external device} spHwDev: SignedByte; {Id of the hardware device.} spByteLanes: SignedByte; {bytelanes from card ROM format block} spFlags: SignedByte; {standard flags} spKey: SignedByte; {Internal use only} END; æKY SInfoRecord æT struct æFc Slots.p æD SInfoRecPtr = ^SInfoRecord; SInfoRecord = PACKED RECORD siDirPtr: Ptr; {Pointer to directory} siInitStatusA: INTEGER; {initialization E} siInitStatusV: INTEGER; {status returned by vendor init code} siState: SignedByte; {initialization state} siCPUByteLanes: SignedByte; {0=[d0..d7] 1=[d8..d15]} siTopOfROM: SignedByte; {Top of ROM= $FssFFFFx: x is TopOfROM} siStatusFlags: SignedByte; {bit 0 - card is changed} siTOConst: INTEGER; {Time Out C for BusErr} siReserved: PACKED ARRAY [0..1] OF SignedByte; {reserved} siROMAddr: Ptr; { addr of top of ROM } siSlot: CHAR; { slot number } siPadding: PACKED ARRAY [0..2] OF SignedByte; { reserved } END; æKY SDMRecord æT struct æFc Slots.p æD SDMRecord = PACKED RECORD sdBEVSave: ProcPtr; {Save old BusErr vector} sdBusErrProc: ProcPtr; {Go here to determine if it is a BusErr} sdErrorEntry: ProcPtr; {Go here if BusErrProc finds real BusErr} sdReserved: LONGINT; {Reserved} END; æKY FHeaderRec æT struct æFc Slots.p æD FHeaderRecPtr = ^FHeaderRec; FHeaderRec = PACKED RECORD fhDirOffset: LONGINT; {offset to directory} fhLength: LONGINT; {length of ROM} fhCRC: LONGINT; {CRC} fhROMRev: SignedByte; {revision of ROM} fhFormat: SignedByte; {format - 2} fhTstPat: LONGINT; {test pattern} fhReserved: SignedByte; {reserved} fhByteLanes: SignedByte; {ByteLanes} END; æKY SEBlock æT struct æFc Slots.p æD SEBlock = PACKED RECORD seSlot: SignedByte; {Slot number.} sesRsrcId: SignedByte; {sResource Id.} seStatus: INTEGER; {Status of code executed by sExec.} seFlags: SignedByte; {Flags} seFiller0: SignedByte; {Filler, must be SignedByte to align on odd boundry} seFiller1: SignedByte; {Filler} seFiller2: SignedByte; {Filler} seResult: LONGINT; {Result of sLoad.} seIOFileName: LONGINT; {Pointer to IOFile name.} seDevice: SignedByte; {Which device to read from.} sePartition: SignedByte; {The partition.} seOSType: SignedByte; {Type of OS.} seReserved: SignedByte; {Reserved field.} seRefNum: SignedByte; {RefNum of the driver.} seNumDevices: SignedByte; { Number of devices to load.} seBootState: SignedByte; {State of StartBoot code.} END; æKY SReadByte æT Function æFc Slots.p æD FUNCTION SReadByte(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7000,$A06E,$3E80; æKY SReadWord æT Function æFc Slots.p æD FUNCTION SReadWord(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7001,$A06E,$3E80; æKY SReadLong æT Function æFc Slots.p æD FUNCTION SReadLong(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7002,$A06E,$3E80; æKY SGetCString æT Function æFc Slots.p æD FUNCTION SGetCString(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7003,$A06E,$3E80; æKY SGetBlock æT Function æFc Slots.p æD FUNCTION SGetBlock(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7005,$A06E,$3E80; æKY SFindStruct æT Function æFc Slots.p æD FUNCTION SFindStruct(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7006,$A06E,$3E80; æKY SReadStruct æT Function æFc Slots.p æD FUNCTION SReadStruct(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7007,$A06E,$3E80; æKY SReadInfo æT Function æFc Slots.p æD FUNCTION SReadInfo(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7010,$A06E,$3E80; æKY SReadPRAMRec æT Function æFc Slots.p æD FUNCTION SReadPRAMRec(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7011,$A06E,$3E80; æKY SPutPRAMRec æT Function æFc Slots.p æD FUNCTION SPutPRAMRec(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7012,$A06E,$3E80; æKY SReadFHeader æT Function æFc Slots.p æD FUNCTION SReadFHeader(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7013,$A06E,$3E80; æKY SNextSRsrc æT Function æFc Slots.p æD FUNCTION SNextSRsrc(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7014,$A06E,$3E80; æKY SNextTypeSRsrc æT Function æFc Slots.p æD FUNCTION SNextTypeSRsrc(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7015,$A06E,$3E80; æKY SRsrcInfo æT Function æFc Slots.p æD FUNCTION SRsrcInfo(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7016,$A06E,$3E80; æKY SCkCardStat æT Function æFc Slots.p æD FUNCTION SCkCardStat(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7018,$A06E,$3E80; æKY SReadDrvrName æT Function æFc Slots.p æD FUNCTION SReadDrvrName(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7019,$A06E,$3E80; æKY SFindDevBase æT Function æFc Slots.p æD FUNCTION SFindDevBase(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$701B,$A06E,$3E80; æKY SFindBigDevBase æT Function æFc Slots.p æD FUNCTION SFindBigDevBase(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$701C,$A06E,$3E80; æKY InitSDeclMgr æT Function æFc Slots.p æD FUNCTION InitSDeclMgr(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7020,$A06E,$3E80; æKY SPrimaryInit æT Function æFc Slots.p æD FUNCTION SPrimaryInit(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7021,$A06E,$3E80; æKY SCardChanged æT Function æFc Slots.p æD FUNCTION SCardChanged(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7022,$A06E,$3E80; æKY SExec æT Function æFc Slots.p æD FUNCTION SExec(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7023,$A06E,$3E80; æKY SOffsetData æT Function æFc Slots.p æD FUNCTION SOffsetData(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7024,$A06E,$3E80; æKY SInitPRAMRecs æT Function æFc Slots.p æD FUNCTION SInitPRAMRecs(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7025,$A06E,$3E80; æKY SReadPBSize æT Function æFc Slots.p æD FUNCTION SReadPBSize(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7026,$A06E,$3E80; æKY SCalcStep æT Function æFc Slots.p æD FUNCTION SCalcStep(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7028,$A06E,$3E80; æKY SInitSRsrcTable æT Function æFc Slots.p æD FUNCTION SInitSRsrcTable(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7029,$A06E,$3E80; æKY SSearchSRT æT Function æFc Slots.p æD FUNCTION SSearchSRT(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$702A,$A06E,$3E80; æKY SUpdateSRT æT Function æFc Slots.p æD FUNCTION SUpdateSRT(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$702B,$A06E,$3E80; æKY SCalcSPointer æT Function æFc Slots.p æD FUNCTION SCalcSPointer(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$702C,$A06E,$3E80; æKY SGetDriver æT Function æFc Slots.p æD FUNCTION SGetDriver(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$702D,$A06E,$3E80; æKY SPtrToSlot æT Function æFc Slots.p æD FUNCTION SPtrToSlot(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$702E,$A06E,$3E80; æKY SFindSInfoRecPtr æT Function æFc Slots.p æD FUNCTION SFindSInfoRecPtr(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$702F,$A06E,$3E80; æKY SFindSRsrcPtr æT Function æFc Slots.p æD FUNCTION SFindSRsrcPtr(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7030,$A06E,$3E80; æKY SDeleteSRTRec æT Function æFc Slots.p æD FUNCTION SDeleteSRTRec(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7031,$A06E,$3E80; æKY OpenSlot æT Function æFc Slots.p æD FUNCTION OpenSlot(paramBlock: ParmBlkPtr;aSync: BOOLEAN): OSErr; æKY OpenSlotSync æT Function æFc Slots.p æD FUNCTION OpenSlotSync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A200,$3E80; æKY OpenSlotAsync æT Function æFc Slots.p æD FUNCTION OpenSlotAsync(paramBlock: ParmBlkPtr): OSErr; INLINE $205F,$A600,$3E80; æKY SIntInstall æT Function æFc Slots.p æD FUNCTION SIntInstall(sIntQElemPtr: SQElemPtr;theSlot: INTEGER): OSErr; INLINE $301F,$205F,$A075,$3E80; æKY SIntRemove æT Function æFc Slots.p æD FUNCTION SIntRemove(sIntQElemPtr: SQElemPtr;theSlot: INTEGER): OSErr; INLINE $301F,$205F,$A076,$3E80; æKY SVersion æT Function æFc Slots.p æD FUNCTION SVersion(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7008,$A06E,$3E80; æKY SetSRsrcState æT Function æFc Slots.p æD FUNCTION SetSRsrcState(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$7009,$A06E,$3E80; æKY InsertSRTRec æT Function æFc Slots.p æD FUNCTION InsertSRTRec(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$700A,$A06E,$3E80; æKY SGetSRsrc æT Function æFc Slots.p æD FUNCTION SGetSRsrc(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$700B,$A06E,$3E80; æKY SGetTypeSRsrc æT Function æFc Slots.p æD FUNCTION SGetTypeSRsrc(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$700C,$A06E,$3E80; æKY SGetSRsrcPtr æT Function æFc Slots.p æD FUNCTION SGetSRsrcPtr(spBlkPtr: SpBlockPtr): OSErr; INLINE $205F,$701D,$A06E,$3E80; æKY Sound.p æKL Comp3to1 Comp6to1 Exp1to3 Exp1to6 GetSoundVol MACEVersion SetSoundVol SndAddModifier SndChannelStatus SndControl SndDisposeChannel SndDoCommand SndDoImmediate SndGetSysBeepState SndManagerStatus SndNewChannel SndPauseFilePlay SndPlay SndPlayDoubleBuffer SndSetSysBeepState SndSoundManagerVersion SndStartFilePlay SndStopFilePlay SoundDone StartSound StopSound aceBadCmd aceBadComp aceBadDest aceBadEncode aceMemFull aceNilBlock aceSuccess ampCmd AudioSelection AudioSelectionPtr availableCmd bufferCmd callBackCmd cmpSH CmpSoundHeader CmpSoundHeaderPtr continueCmd ConversionBlock ConversionBlockPtr convertCmd dataOffsetFlag dbBufferReady dbLastBuffer doubleBufferCmd eightToThree emptyCmd extSH ExtSoundHeader ExtSoundHeaderPtr ffMode FFSynthPtr FFSynthRec firstSoundFormat flushCmd freeCmd FreeWave freqCmd freqDurationCmd ftMode FTSndRecPtr FTSoundRec FTSynthPtr FTSynthRec getAmpCmd getRateCmd howOftenCmd initChan0 initChan1 initChan2 initChan3 initChanLeft initChanRight initCmd initCompMask initMACE3 initMACE6 initMono initNoDrop initNoInterp initPanMask initSRateMask initStereo initStereoMask insideCmpSH LeftOverBlock LeftOverBlockPtr leftOverBlockSize loadCmd MACE3snthID MACE6snthID ModRef notCompressed nullCmd outsideCmpSH pauseCmd phaseCmd quietCmd rate11khz rate22khz rateCmd reInitCmd requestNextCmd restCmd resumeCmd sampledSynth scaleCmd SCStatus SCStatusPtr secondSoundFormat sixToOne sixToOnePacketSize sizeCmd SMStatus SMStatusPtr SndChannel SndChannelPtr SndCommand SndDoubleBuffer SndDoubleBufferHeader SndDoubleBufferHeaderPtr SndDoubleBufferPtr SndListPtr SndListResource soundCmd SoundHeader SoundHeaderPtr soundListRsrc squareWaveSynth StateBlock StateBlockPtr stateBlockSize stdQLength stdSH swMode SWSynthPtr SWSynthRec syncCmd synthCodeRsrc sysBeepDisable sysBeepEnable tempoCmd threeToOne threeToOnePacketSize tickleCmd timbreCmd Time Tone Tones totalLoadCmd twelfthRootTwo twoToOne unitTypeNoSelection unitTypeSeconds versionCmd waitCmd wakeUpCmd Wave waveInitChannel0 waveInitChannel1 waveInitChannel2 waveInitChannel3 waveInitChannelMask WavePtr waveTableCmd waveTableSynth æKY swMode æT constant æFc Sound.p æD swMode = -1; { Sound Driver modes } æKY ftMode æT constant æFc Sound.p æD ftMode = 1; æKY ffMode æT constant æFc Sound.p æD ffMode = 0; æKY synthCodeRsrc æT constant æFc Sound.p æD synthCodeRsrc = 'snth'; { Resource types used by Sound Manager } æKY soundListRsrc æT constant æFc Sound.p æD soundListRsrc = 'snd '; æKY twelfthRootTwo æT constant æFc Sound.p æD twelfthRootTwo = 1.05946309434; æKY rate22khz æT constant æFc Sound.p æD rate22khz = $56EE8BA3; { 22254.54545 in fixed-point } æKY rate11khz æT constant æFc Sound.p æD rate11khz = $2B7745D1; { 11127.27273 in fixed-point } æKY squareWaveSynth æT constant æFc Sound.p æD squareWaveSynth = 1; {square wave synthesizer} æKY waveTableSynth æT constant æFc Sound.p æD waveTableSynth = 3; {wave table synthesizer} æKY sampledSynth æT constant æFc Sound.p æD sampledSynth = 5; {sampled sound synthesizer} æKY MACE3snthID æT constant æFc Sound.p æD MACE3snthID = 11; æKY MACE6snthID æT constant æFc Sound.p æD MACE6snthID = 13; æKY nullCmd æT constant æFc Sound.p æD nullCmd = 0; æKY initCmd æT constant æFc Sound.p æD initCmd = 1; æKY freeCmd æT constant æFc Sound.p æD freeCmd = 2; æKY quietCmd æT constant æFc Sound.p æD quietCmd = 3; æKY flushCmd æT constant æFc Sound.p æD flushCmd = 4; æKY reInitCmd æT constant æFc Sound.p æD reInitCmd = 5; æKY waitCmd æT constant æFc Sound.p æD waitCmd = 10; æKY pauseCmd æT constant æFc Sound.p æD pauseCmd = 11; æKY resumeCmd æT constant æFc Sound.p æD resumeCmd = 12; æKY callBackCmd æT constant æFc Sound.p æD callBackCmd = 13; æKY syncCmd æT constant æFc Sound.p æD syncCmd = 14; æKY emptyCmd æT constant æFc Sound.p æD emptyCmd = 15; æKY tickleCmd æT constant æFc Sound.p æD tickleCmd = 20; æKY requestNextCmd æT constant æFc Sound.p æD requestNextCmd = 21; æKY howOftenCmd æT constant æFc Sound.p æD howOftenCmd = 22; æKY wakeUpCmd æT constant æFc Sound.p æD wakeUpCmd = 23; æKY availableCmd æT constant æFc Sound.p æD availableCmd = 24; æKY versionCmd æT constant æFc Sound.p æD versionCmd = 25; æKY totalLoadCmd æT constant æFc Sound.p æD totalLoadCmd = 26; æKY loadCmd æT constant æFc Sound.p æD loadCmd = 27; æKY scaleCmd æT constant æFc Sound.p æD scaleCmd = 30; æKY tempoCmd æT constant æFc Sound.p æD tempoCmd = 31; æKY freqDurationCmd æT constant æFc Sound.p æD freqDurationCmd = 40; æKY restCmd æT constant æFc Sound.p æD restCmd = 41; æKY freqCmd æT constant æFc Sound.p æD freqCmd = 42; æKY ampCmd æT constant æFc Sound.p æD ampCmd = 43; æKY timbreCmd æT constant æFc Sound.p æD timbreCmd = 44; æKY getAmpCmd æT constant æFc Sound.p æD getAmpCmd = 45; æKY waveTableCmd æT constant æFc Sound.p æD waveTableCmd = 60; æKY phaseCmd æT constant æFc Sound.p æD phaseCmd = 61; æKY soundCmd æT constant æFc Sound.p æD soundCmd = 80; æKY bufferCmd æT constant æFc Sound.p æD bufferCmd = 81; æKY rateCmd æT constant æFc Sound.p æD rateCmd = 82; æKY continueCmd æT constant æFc Sound.p æD continueCmd = 83; æKY doubleBufferCmd æT constant æFc Sound.p æD doubleBufferCmd = 84; æKY getRateCmd æT constant æFc Sound.p æD getRateCmd = 85; æKY sizeCmd æT constant æFc Sound.p æD sizeCmd = 90; æKY convertCmd æT constant æFc Sound.p æD convertCmd = 91; æKY stdQLength æT constant æFc Sound.p æD stdQLength = 128; æKY dataOffsetFlag æT constant æFc Sound.p æD dataOffsetFlag = $8000; æKY waveInitChannelMask æT constant æFc Sound.p æD waveInitChannelMask = $07; æKY waveInitChannel0 æT constant æFc Sound.p æD waveInitChannel0 = $04; æKY waveInitChannel1 æT constant æFc Sound.p æD waveInitChannel1 = $05; æKY waveInitChannel2 æT constant æFc Sound.p æD waveInitChannel2 = $06; æKY waveInitChannel3 æT constant æFc Sound.p æD waveInitChannel3 = $07; æKY initPanMask æT constant æFc Sound.p æD initPanMask = $0003; { mask for right/left pan values } æKY initSRateMask æT constant æFc Sound.p æD initSRateMask = $0030; { mask for sample rate values } æKY initStereoMask æT constant æFc Sound.p æD initStereoMask = $00C0; { mask for mono/stereo values } æKY initCompMask æT constant æFc Sound.p æD initCompMask = $FF00; { mask for compression IDs } æKY initChanLeft æT constant æFc Sound.p æD initChanLeft = $0002; { left stereo channel } æKY initChanRight æT constant æFc Sound.p æD initChanRight = $0003; { right stereo channel } æKY initNoInterp æT constant æFc Sound.p æD initNoInterp = $0004; { no linear interpolation } æKY initNoDrop æT constant æFc Sound.p æD initNoDrop = $0008; { no drop-sample conversion } æKY initMono æT constant æFc Sound.p æD initMono = $0080; { monophonic channel } æKY initStereo æT constant æFc Sound.p æD initStereo = $00C0; { stereo channel } æKY initMACE3 æT constant æFc Sound.p æD initMACE3 = $0300; { MACE 3:1 } æKY initMACE6 æT constant æFc Sound.p æD initMACE6 = $0400; { MACE 6:1 } æKY initChan0 æT constant æFc Sound.p æD initChan0 = $0004; { channel 0 - wave table only } æKY initChan1 æT constant æFc Sound.p æD initChan1 = $0005; { channel 1 - wave table only } æKY initChan2 æT constant æFc Sound.p æD initChan2 = $0006; { channel 2 - wave table only } æKY initChan3 æT constant æFc Sound.p æD initChan3 = $0007; { channel 3 - wave table only } æKY stdSH æT constant æFc Sound.p æD stdSH = $00; { Standard sound header encode value } æKY extSH æT constant æFc Sound.p æD extSH = $FF; { Extended sound header encode value } æKY cmpSH æT constant æFc Sound.p æD cmpSH = $FE; { Compressed sound header encode value } æKY notCompressed æT constant æFc Sound.p æD notCompressed = 0; { compression ID's } æKY twoToOne æT constant æFc Sound.p æD twoToOne = 1; æKY eightToThree æT constant æFc Sound.p æD eightToThree = 2; æKY threeToOne æT constant æFc Sound.p æD threeToOne = 3; æKY sixToOne æT constant æFc Sound.p æD sixToOne = 4; æKY outsideCmpSH æT constant æFc Sound.p æD outsideCmpSH = 0; { MACE constants } æKY insideCmpSH æT constant æFc Sound.p æD insideCmpSH = 1; æKY aceSuccess æT constant æFc Sound.p æD aceSuccess = 0; æKY aceMemFull æT constant æFc Sound.p æD aceMemFull = 1; æKY aceNilBlock æT constant æFc Sound.p æD aceNilBlock = 2; æKY aceBadComp æT constant æFc Sound.p æD aceBadComp = 3; æKY aceBadEncode æT constant æFc Sound.p æD aceBadEncode = 4; æKY aceBadDest æT constant æFc Sound.p æD aceBadDest = 5; æKY aceBadCmd æT constant æFc Sound.p æD aceBadCmd = 6; æKY sixToOnePacketSize æT constant æFc Sound.p æD sixToOnePacketSize = 8; æKY threeToOnePacketSize æT constant æFc Sound.p æD threeToOnePacketSize = 16; æKY stateBlockSize æT constant æFc Sound.p æD stateBlockSize = 64; æKY leftOverBlockSize æT constant æFc Sound.p æD leftOverBlockSize = 32; æKY firstSoundFormat æT constant æFc Sound.p æD firstSoundFormat = $0001; { general sound format } æKY secondSoundFormat æT constant æFc Sound.p æD secondSoundFormat = $0002; { special sampled sound format (HyperCard) } æKY dbBufferReady æT constant æFc Sound.p æD dbBufferReady = $00000001; { double buffer is filled } æKY dbLastBuffer æT constant æFc Sound.p æD dbLastBuffer = $00000004; { last double buffer to play } æKY sysBeepDisable æT constant æFc Sound.p æD sysBeepDisable = $0000; { SysBeep() enable flags } æKY sysBeepEnable æT constant æFc Sound.p æD sysBeepEnable = $0001; æKY unitTypeNoSelection æT constant æFc Sound.p æD unitTypeNoSelection = $FFFF; { unitTypes for AudioSelection.unitType } æKY unitTypeSeconds æT constant æFc Sound.p æD unitTypeSeconds = $0000; æKY FreeWave æT typedef æFc Sound.p æD FreeWave = PACKED ARRAY [0..30000] OF Byte; æKY FFSynthRec æT struct æFc Sound.p æD FFSynthPtr = ^FFSynthRec; FFSynthRec = RECORD mode: INTEGER; count: Fixed; waveBytes: FreeWave; END; æKY Tone æT struct æFc Sound.p æD Tone = RECORD count: INTEGER; amplitude: INTEGER; duration: INTEGER; END; æKY Tones æT typedef æFc Sound.p æD Tones = ARRAY [0..5000] OF Tone; æKY SWSynthRec æT struct æFc Sound.p æD SWSynthPtr = ^SWSynthRec; SWSynthRec = RECORD mode: INTEGER; triplets: Tones; END; æKY Wave æT typedef æFc Sound.p æD Wave = PACKED ARRAY [0..255] OF Byte; æKY WavePtr æT typedef æFc Sound.p æD WavePtr = ^Wave; æKY FTSoundRec æT struct æFc Sound.p æD FTSndRecPtr = ^FTSoundRec; FTSoundRec = RECORD duration: INTEGER; sound1Rate: Fixed; sound1Phase: LONGINT; sound2Rate: Fixed; sound2Phase: LONGINT; sound3Rate: Fixed; sound3Phase: LONGINT; sound4Rate: Fixed; sound4Phase: LONGINT; sound1Wave: WavePtr; sound2Wave: WavePtr; sound3Wave: WavePtr; sound4Wave: WavePtr; END; æKY FTSynthRec æT struct æFc Sound.p æD FTSynthPtr = ^FTSynthRec; FTSynthRec = RECORD mode: INTEGER; sndRec: FTSndRecPtr; END; æKY SndCommand æT struct æFc Sound.p æD SndCommand = PACKED RECORD cmd: INTEGER; param1: INTEGER; param2: LONGINT; END; æKY Time æT typedef æFc Sound.p æD Time = LONGINT; { in half milliseconds } æKY SndChannel æT struct æFc Sound.p æD SndChannelPtr = ^SndChannel; SndChannel = PACKED RECORD nextChan: SndChannelPtr; firstMod: Ptr; { reserved for the Sound Manager } callBack: ProcPtr; userInfo: LONGINT; wait: Time; { The following is for internal Sound Manager use only.} cmdInProgress: SndCommand; flags: INTEGER; qLength: INTEGER; qHead: INTEGER; { next spot to read or -1 if empty } qTail: INTEGER; { next spot to write = qHead if full } queue: ARRAY [0..stdQLength - 1] OF SndCommand; END; æKY StateBlock æT struct æFc Sound.p æD StateBlockPtr = ^StateBlock; StateBlock = RECORD stateVar: ARRAY [0..stateBlockSize - 1] OF INTEGER; END; æKY LeftOverBlock æT struct æFc Sound.p æD LeftOverBlockPtr = ^LeftOverBlock; LeftOverBlock = RECORD count: LONGINT; sampleArea: ARRAY [0..leftOverBlockSize - 1] OF Byte; END; æKY ModRef æT struct æFc Sound.p æD ModRef = RECORD modNumber: INTEGER; modInit: LONGINT; END; æKY SndListResource æT struct æFc Sound.p æD SndListPtr = ^SndListResource; SndListResource = RECORD format: INTEGER; numModifiers: INTEGER; modifierPart: ARRAY [0..0] OF ModRef; {This is a variable length array} numCommands: INTEGER; commandPart: ARRAY [0..0] OF SndCommand; {This is a variable length array} dataPart: PACKED ARRAY [0..0] OF Byte; {This is a variable length array} END; æKY SoundHeader æT struct æFc Sound.p æD SoundHeaderPtr = ^SoundHeader; SoundHeader = PACKED RECORD samplePtr: Ptr; { if NIL then samples are in sampleArea } length: LONGINT; { length of sound in bytes } sampleRate: Fixed; { sample rate for this sound } loopStart: LONGINT; { start of looping portion } loopEnd: LONGINT; { end of looping portion } encode: Byte; { header encoding } baseFrequency: Byte; { baseFrequency value } sampleArea: ARRAY [0..0] OF Byte; END; æKY CmpSoundHeader æT struct æFc Sound.p æD CmpSoundHeaderPtr = ^CmpSoundHeader; CmpSoundHeader = PACKED RECORD samplePtr: Ptr; { if nil then samples are in sample area } numChannels: LONGINT; { number of channels i.e. mono = 1 } sampleRate: Fixed; { sample rate in Apples Fixed point representation } loopStart: LONGINT; { loopStart of sound before compression } loopEnd: LONGINT; { loopEnd of sound before compression } encode: Byte; { data structure used , stdSH, extSH, or cmpSH } baseFrequency: Byte; { same meaning as regular SoundHeader } numFrames: LONGINT; { length in frames ( packetFrames or sampleFrames ) } AIFFSampleRate: extended; { IEEE sample rate } markerChunk: Ptr; { sync track } futureUse1: Ptr; { reserved by Apple } futureUse2: Ptr; { reserved by Apple } stateVars: StateBlockPtr; { pointer to State Block } leftOverSamples: LeftOverBlockPtr; { used to save truncated samples between compression calls } compressionID: INTEGER; { 0 means no compression, non zero means compressionID } packetSize: INTEGER; { number of bits in compressed sample packet } snthID: INTEGER; { resource ID of Sound Manager snth that contains NRT C/E } sampleSize: INTEGER; { number of bits in non-compressed sample } sampleArea: ARRAY [0..0] OF Byte; { space for when samples follow directly } END; æKY ExtSoundHeader æT struct æFc Sound.p æD ExtSoundHeaderPtr = ^ExtSoundHeader; ExtSoundHeader = PACKED RECORD samplePtr: Ptr; { if nil then samples are in sample area } numChannels: LONGINT; { number of channels, ie mono = 1 } sampleRate: Fixed; { sample rate in Apples Fixed point representation } loopStart: LONGINT; { same meaning as regular SoundHeader } loopEnd: LONGINT; { same meaning as regular SoundHeader } encode: Byte; { data structure used , stdSH, extSH, or cmpSH } baseFrequency: Byte; { same meaning as regular SoundHeader } numFrames: LONGINT; { length in total number of frames } AIFFSampleRate: extended; { IEEE sample rate } markerChunk: Ptr; { sync track } instrumentChunks: Ptr; { AIFF instrument chunks } AESRecording: Ptr; sampleSize: INTEGER; { number of bits in sample } futureUse1: INTEGER; { reserved by Apple } futureUse2: LONGINT; { reserved by Apple } futureUse3: LONGINT; { reserved by Apple } futureUse4: LONGINT; { reserved by Apple } sampleArea: ARRAY [0..0] OF Byte; { space for when samples follow directly } END; æKY ConversionBlock æT struct æFc Sound.p æD ConversionBlockPtr = ^ConversionBlock; ConversionBlock = RECORD destination: INTEGER; unused: INTEGER; inputPtr: CmpSoundHeaderPtr; outputPtr: CmpSoundHeaderPtr; END; æKY SMStatus æT struct æFc Sound.p æD SMStatusPtr = ^SMStatus; SMStatus = PACKED RECORD smMaxCPULoad: INTEGER; smNumChannels: INTEGER; smCurCPULoad: INTEGER; END; æKY SCStatus æT struct æFc Sound.p æD SCStatusPtr = ^SCStatus; SCStatus = RECORD scStartTime: Fixed; scEndTime: Fixed; scCurrentTime: Fixed; scChannelBusy: BOOLEAN; scChannelDisposed: BOOLEAN; scChannelPaused: BOOLEAN; scUnused: BOOLEAN; scChannelAttributes: LONGINT; scCPULoad: LONGINT; END; æKY AudioSelection æT struct æFc Sound.p æD AudioSelectionPtr = ^AudioSelection; AudioSelection = PACKED RECORD unitType: LONGINT; selStart: Fixed; selEnd: Fixed; END; æKY SndDoubleBuffer æT struct æFc Sound.p æD SndDoubleBufferPtr = ^SndDoubleBuffer; SndDoubleBuffer = PACKED RECORD dbNumFrames: LONGINT; dbFlags: LONGINT; dbUserInfo: ARRAY [0..1] OF LONGINT; dbSoundData: ARRAY [0..0] OF Byte; END; æKY SndDoubleBufferHeader æT struct æFc Sound.p æD SndDoubleBufferHeaderPtr = ^SndDoubleBufferHeader; SndDoubleBufferHeader = PACKED RECORD dbhNumChannels: INTEGER; dbhSampleSize: INTEGER; dbhCompressionID: INTEGER; dbhPacketSize: INTEGER; dbhSampleRate: Fixed; dbhBufferPtr: ARRAY [0..1] OF SndDoubleBufferPtr; dbhDoubleBack: ProcPtr; END; æKY SndDoCommand æT Function æFc Sound.p æD FUNCTION SndDoCommand(chan: SndChannelPtr;cmd: SndCommand;noWait: BOOLEAN): OSErr; INLINE $A803; æKY SndDoImmediate æT Function æFc Sound.p æD FUNCTION SndDoImmediate(chan: SndChannelPtr;cmd: SndCommand): OSErr; INLINE $A804; æKY SndNewChannel æT Function æFc Sound.p æD FUNCTION SndNewChannel(VAR chan: SndChannelPtr;synth: INTEGER;init: LONGINT; userRoutine: ProcPtr): OSErr; INLINE $A807; æKY SndDisposeChannel æT Function æFc Sound.p æD FUNCTION SndDisposeChannel(chan: SndChannelPtr;quietNow: BOOLEAN): OSErr; INLINE $A801; æKY SndPlay æT Function æFc Sound.p æD FUNCTION SndPlay(chan: SndChannelPtr;sndHdl: Handle;async: BOOLEAN): OSErr; INLINE $A805; æKY SndAddModifier æT Function æFc Sound.p æD FUNCTION SndAddModifier(chan: SndChannelPtr;modifier: ProcPtr;id: INTEGER; init: LONGINT): OSErr; INLINE $A802; æKY SndControl æT Function æFc Sound.p æD FUNCTION SndControl(id: INTEGER;VAR cmd: SndCommand): OSErr; INLINE $A806; æKY SetSoundVol æT Function æFc Sound.p æD PROCEDURE SetSoundVol(level: INTEGER); æKY GetSoundVol æT Function æFc Sound.p æD PROCEDURE GetSoundVol(VAR level: INTEGER); æKY StartSound æT Function æFc Sound.p æD PROCEDURE StartSound(synthRec: Ptr;numBytes: LONGINT;completionRtn: ProcPtr); æKY StopSound æT Function æFc Sound.p æD PROCEDURE StopSound; æKY SoundDone æT Function æFc Sound.p æD FUNCTION SoundDone: BOOLEAN; æKY SndSoundManagerVersion æT Function æFc Sound.p æD FUNCTION SndSoundManagerVersion: NumVersion; INLINE $203C,$000C,$0008,$A800; æKY SndStartFilePlay æT Function æFc Sound.p æD FUNCTION SndStartFilePlay(chan: SndChannelPtr;fRefNum: INTEGER;resNum: INTEGER; bufferSize: LONGINT;bufferPtr: Ptr;theSelection: AudioSelectionPtr;theCompletion: ProcPtr; async: BOOLEAN): OSErr; INLINE $203C,$0D00,$0008,$A800; æKY SndPauseFilePlay æT Function æFc Sound.p æD FUNCTION SndPauseFilePlay(chan: SndChannelPtr): OSErr; INLINE $203C,$0204,$0008,$A800; æKY SndStopFilePlay æT Function æFc Sound.p æD FUNCTION SndStopFilePlay(chan: SndChannelPtr;aSync: BOOLEAN): OSErr; INLINE $203C,$0308,$0008,$A800; æKY SndChannelStatus æT Function æFc Sound.p æD FUNCTION SndChannelStatus(chan: SndChannelPtr;theLength: INTEGER;theStatus: SCStatusPtr): OSErr; INLINE $203C,$0010,$0008,$A800; æKY SndManagerStatus æT Function æFc Sound.p æD FUNCTION SndManagerStatus(theLength: INTEGER;theStatus: SMStatusPtr): OSErr; INLINE $203C,$0014,$0008,$A800; æKY SndGetSysBeepState æT Function æFc Sound.p æD PROCEDURE SndGetSysBeepState(VAR sysBeepState: INTEGER); INLINE $203C,$0018,$0008,$A800; æKY SndSetSysBeepState æT Function æFc Sound.p æD FUNCTION SndSetSysBeepState(sysBeepState: INTEGER): OSErr; INLINE $203C,$001C,$0008,$A800; æKY SndPlayDoubleBuffer æT Function æFc Sound.p æD FUNCTION SndPlayDoubleBuffer(chan: SndChannelPtr;theParams: SndDoubleBufferHeaderPtr): OSErr; INLINE $203C,$0020,$0008,$A800; æKY MACEVersion æT Function æFc Sound.p æD FUNCTION MACEVersion: NumVersion; INLINE $203C,$0000,$0010,$A800; æKY Comp3to1 æT Function æFc Sound.p æD PROCEDURE Comp3to1(inBuffer: Ptr;outBuffer: Ptr;cnt: LONGINT;inState: Ptr; outState: Ptr;numChannels: LONGINT;whichChannel: LONGINT); INLINE $203C,$0004,$0010,$A800; æKY Exp1to3 æT Function æFc Sound.p æD PROCEDURE Exp1to3(inBuffer: Ptr;outBuffer: Ptr;cnt: LONGINT;inState: Ptr; outState: Ptr;numChannels: LONGINT;whichChannel: LONGINT); INLINE $203C,$0008,$0010,$A800; æKY Comp6to1 æT Function æFc Sound.p æD PROCEDURE Comp6to1(inBuffer: Ptr;outBuffer: Ptr;cnt: LONGINT;inState: Ptr; outState: Ptr;numChannels: LONGINT;whichChannel: LONGINT); INLINE $203C,$000C,$0010,$A800; æKY Exp1to6 æT Function æFc Sound.p æD PROCEDURE Exp1to6(inBuffer: Ptr;outBuffer: Ptr;cnt: LONGINT;inState: Ptr; outState: Ptr;numChannels: LONGINT;whichChannel: LONGINT); INLINE $203C,$0010,$0010,$A800; æKY StandardFile.p æKL CustomGetFile CustomPutFile FinalComment SFGetFile SFPGetFile SFPPutFile SFPutFile StandardGetFile StandardPutFile ActivateYDProcPtr DlgHookProcPtr DlgHookYDProcPtr FileFilterProcPtr FileFilterYDProcPtr getCancel getDlgID getDrive getEject getNmList getOpen getScroll ModalFilterYDProcPtr putCancel putDlgID putDrive putEject putName putSave sfErrorDialogRefCon sfGetDialogID sfHookChangeSelection sfHookCharOffset sfHookFirstCall sfHookFolderPopUp sfHookGoToAliasTarget sfHookGoToDesktop sfHookGoToNextDrive sfHookGoToParent sfHookGoToPrevDrive sfHookLastCall sfHookNullEvent sfHookOpenAlias sfHookOpenFolder sfHookRebuildList sfHookSetActiveOffset sfItemBalloonHelp sfItemCancelButton sfItemDesktopButton sfItemDividerLinePict sfItemEjectButton sfItemFileListUser sfItemFileNameTextEdit sfItemNewFolderUser sfItemOpenButton sfItemPopUpMenuUser sfItemPromptStaticText sfItemVolumeUser sfLockWarnDialogRefCon sfMainDialogRefCon sfNewFolderDialogRefCon sfPutDialogID sfReplaceDialogRefCon SFReply sfStatWarnDialogRefCon SFTypeList StandardFileReply æKY putDlgID æT constant æFc StandardFile.p æD putDlgID = -3999; æKY putSave æT constant æFc StandardFile.p æD putSave = 1; æKY putCancel æT constant æFc StandardFile.p æD putCancel = 2; æKY putEject æT constant æFc StandardFile.p æD putEject = 5; æKY putDrive æT constant æFc StandardFile.p æD putDrive = 6; æKY putName æT constant æFc StandardFile.p æD putName = 7; æKY getDlgID æT constant æFc StandardFile.p æD getDlgID = -4000; æKY getOpen æT constant æFc StandardFile.p æD getOpen = 1; æKY getCancel æT constant æFc StandardFile.p æD getCancel = 3; æKY getEject æT constant æFc StandardFile.p æD getEject = 5; æKY getDrive æT constant æFc StandardFile.p æD getDrive = 6; æKY getNmList æT constant æFc StandardFile.p æD getNmList = 7; æKY getScroll æT constant æFc StandardFile.p æD getScroll = 8; æKY sfPutDialogID æT constant æFc StandardFile.p æD sfPutDialogID = -6043; æKY sfGetDialogID æT constant æFc StandardFile.p æD sfGetDialogID = -6042; æKY sfItemOpenButton æT constant æFc StandardFile.p æD sfItemOpenButton = 1; æKY sfItemCancelButton æT constant æFc StandardFile.p æD sfItemCancelButton = 2; æKY sfItemBalloonHelp æT constant æFc StandardFile.p æD sfItemBalloonHelp = 3; æKY sfItemVolumeUser æT constant æFc StandardFile.p æD sfItemVolumeUser = 4; æKY sfItemEjectButton æT constant æFc StandardFile.p æD sfItemEjectButton = 5; æKY sfItemDesktopButton æT constant æFc StandardFile.p æD sfItemDesktopButton = 6; æKY sfItemFileListUser æT constant æFc StandardFile.p æD sfItemFileListUser = 7; æKY sfItemPopUpMenuUser æT constant æFc StandardFile.p æD sfItemPopUpMenuUser = 8; æKY sfItemDividerLinePict æT constant æFc StandardFile.p æD sfItemDividerLinePict = 9; æKY sfItemFileNameTextEdit æT constant æFc StandardFile.p æD sfItemFileNameTextEdit = 10; æKY sfItemPromptStaticText æT constant æFc StandardFile.p æD sfItemPromptStaticText = 11; æKY sfItemNewFolderUser æT constant æFc StandardFile.p æD sfItemNewFolderUser = 12; æKY sfHookFirstCall æT constant æFc StandardFile.p æD sfHookFirstCall = -1; æKY sfHookCharOffset æT constant æFc StandardFile.p æD sfHookCharOffset = $1000; æKY sfHookNullEvent æT constant æFc StandardFile.p æD sfHookNullEvent = 100; æKY sfHookRebuildList æT constant æFc StandardFile.p æD sfHookRebuildList = 101; æKY sfHookFolderPopUp æT constant æFc StandardFile.p æD sfHookFolderPopUp = 102; æKY sfHookOpenFolder æT constant æFc StandardFile.p æD sfHookOpenFolder = 103; æKY sfHookOpenAlias æT constant æFc StandardFile.p æD sfHookOpenAlias = 104; æKY sfHookGoToDesktop æT constant æFc StandardFile.p æD sfHookGoToDesktop = 105; æKY sfHookGoToAliasTarget æT constant æFc StandardFile.p æD sfHookGoToAliasTarget = 106; æKY sfHookGoToParent æT constant æFc StandardFile.p æD sfHookGoToParent = 107; æKY sfHookGoToNextDrive æT constant æFc StandardFile.p æD sfHookGoToNextDrive = 108; æKY sfHookGoToPrevDrive æT constant æFc StandardFile.p æD sfHookGoToPrevDrive = 109; æKY sfHookChangeSelection æT constant æFc StandardFile.p æD sfHookChangeSelection = 110; æKY sfHookSetActiveOffset æT constant æFc StandardFile.p æD sfHookSetActiveOffset = 200; æKY sfHookLastCall æT constant æFc StandardFile.p æD sfHookLastCall = -2; æKY sfMainDialogRefCon æT constant æFc StandardFile.p æD sfMainDialogRefCon = 'stdf'; æKY sfNewFolderDialogRefCon æT constant æFc StandardFile.p æD sfNewFolderDialogRefCon = 'nfdr'; æKY sfReplaceDialogRefCon æT constant æFc StandardFile.p æD sfReplaceDialogRefCon = 'rplc'; æKY sfStatWarnDialogRefCon æT constant æFc StandardFile.p æD sfStatWarnDialogRefCon = 'stat'; æKY sfLockWarnDialogRefCon æT constant æFc StandardFile.p æD sfLockWarnDialogRefCon = 'lock'; æKY sfErrorDialogRefCon æT constant æFc StandardFile.p æD sfErrorDialogRefCon = 'err '; æKY SFReply æT struct æFc StandardFile.p æD SFReply = RECORD good: BOOLEAN; copy: BOOLEAN; fType: OSType; vRefNum: INTEGER; version: INTEGER; fName: Str63; END; æKY StandardFileReply æT struct æFc StandardFile.p æD StandardFileReply = RECORD sfGood: BOOLEAN; sfReplacing: BOOLEAN; sfType: OSType; sfFile: FSSpec; sfScript: ScriptCode; sfFlags: INTEGER; sfIsFolder: BOOLEAN; sfIsVolume: BOOLEAN; sfReserved1: LONGINT; sfReserved2: INTEGER; END; æKY DlgHookProcPtr æT typedef æFc StandardFile.p æD DlgHookProcPtr = ProcPtr; { FUNCTION Hook(item: INTEGER; theDialog: DialogPtr): INTEGER; } æKY FileFilterProcPtr æT typedef æFc StandardFile.p æD FileFilterProcPtr = ProcPtr; { FUNCTION FileFilter(PB: CInfoPBPtr): BOOLEAN; } æKY DlgHookYDProcPtr æT typedef æFc StandardFile.p æD DlgHookYDProcPtr = ProcPtr; { FUNCTION Hook(item: INTEGER; theDialog: DialogPtr; yourDataPtr: Ptr): INTEGER; } æKY ModalFilterYDProcPtr æT typedef æFc StandardFile.p æD ModalFilterYDProcPtr = ProcPtr; { FUNCTION Filter(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; yourDataPtr: Ptr): BOOLEAN; } æKY FileFilterYDProcPtr æT typedef æFc StandardFile.p æD FileFilterYDProcPtr = ProcPtr; { FUNCTION FileFilter(PB: CInfoPBPtr; yourDataPtr: Ptr): BOOLEAN; } æKY ActivateYDProcPtr æT typedef æFc StandardFile.p æD ActivateYDProcPtr = ProcPtr; { PROCEDURE Activate(theDialog; DialogPtr; itemNo: INTEGER; activating: BOOLEAN; yourDataPtr: Ptr); } æKY SFTypeList æT typedef æFc StandardFile.p æD SFTypeList = ARRAY [0..3] OF OSType; æKY SFPutFile æT Function æFc StandardFile.p æD PROCEDURE SFPutFile(where: Point; prompt: Str255; origName: Str255; dlgHook: DlgHookProcPtr; VAR reply: SFReply); INLINE $3F3C,$0001,$A9EA; æKY SFGetFile æT Function æFc StandardFile.p æD PROCEDURE SFGetFile(where: Point; prompt: Str255; fileFilter: FileFilterProcPtr; numTypes: INTEGER; typeList: SFTypeList; dlgHook: DlgHookProcPtr; VAR reply: SFReply); INLINE $3F3C,$0002,$A9EA; æKY SFPPutFile æT Function æFc StandardFile.p æD PROCEDURE SFPPutFile(where: Point; prompt: Str255; origName: Str255; dlgHook: DlgHookProcPtr; VAR reply: SFReply; dlgID: INTEGER; filterProc: ModalFilterProcPtr); INLINE $3F3C,$0003,$A9EA; æKY SFPGetFile æT Function æFc StandardFile.p æD PROCEDURE SFPGetFile(where: Point; prompt: Str255; fileFilter: FileFilterProcPtr; numTypes: INTEGER; typeList: SFTypeList; dlgHook: DlgHookProcPtr; VAR reply: SFReply; dlgID: INTEGER; filterProc: ModalFilterProcPtr); INLINE $3F3C,$0004,$A9EA; æKY StandardPutFile æT Function æFc StandardFile.p æD PROCEDURE StandardPutFile(prompt: Str255; defaultName: Str255; VAR reply: StandardFileReply); INLINE $3F3C,$0005,$A9EA; æKY StandardGetFile æT Function æFc StandardFile.p æD PROCEDURE StandardGetFile(fileFilter: FileFilterProcPtr; numTypes: INTEGER; typeList: SFTypeList; VAR reply: StandardFileReply); INLINE $3F3C,$0006,$A9EA; æKY CustomPutFile æT Function æFc StandardFile.p æD PROCEDURE CustomPutFile(prompt: Str255; defaultName: Str255; VAR reply: StandardFileReply; dlgID: INTEGER; where: Point; dlgHook: DlgHookYDProcPtr; filterProc: ModalFilterYDProcPtr; activeList: Ptr; activateProc: ActivateYDProcPtr; yourDataPtr: UNIV Ptr); INLINE $3F3C,$0007,$A9EA; æKY CustomGetFile æT Function æFc StandardFile.p æD PROCEDURE CustomGetFile(fileFilter: FileFilterYDProcPtr; numTypes: INTEGER; typeList: SFTypeList; VAR reply: StandardFileReply; dlgID: INTEGER; where: Point; dlgHook: DlgHookYDProcPtr; filterProc: ModalFilterYDProcPtr; activeList: Ptr; activateProc: ActivateYDProcPtr; yourDataPtr: UNIV Ptr); INLINE $3F3C,$0008,$A9EA; æKY FinalComment æT Function æFc StandardFile.p æD æKY Start.p æKL GetDefaultStartup GetOSDefault GetTimeout GetVideoDefault SetDefaultStartup SetOSDefault SetTimeout SetVideoDefault DefOSPtr DefOSRec DefStartPtr DefStartRec DefStartType DefVideoPtr DefVideoRec scsiDev slotDev æKY DefStartType slotDev scsiDev æT enum æFc Start.p æD DefStartType = (slotDev,scsiDev); æKY DefStartRec æT struct æFc Start.p æD DefStartPtr = ^DefStartRec; DefStartRec = RECORD CASE DefStartType OF slotDev: (sdExtDevID: SignedByte; sdPartition: SignedByte; sdSlotNum: SignedByte; sdSRsrcID: SignedByte); scsiDev: (sdReserved1: SignedByte; sdReserved2: SignedByte; sdRefNum: INTEGER); END; æKY DefVideoRec æT struct æFc Start.p æD DefVideoPtr = ^DefVideoRec; DefVideoRec = RECORD sdSlot: SignedByte; sdsResource: SignedByte; END; æKY DefOSRec æT struct æFc Start.p æD DefOSPtr = ^DefOSRec; DefOSRec = RECORD sdReserved: SignedByte; sdOSType: SignedByte; END; æKY GetDefaultStartup æT Function æFc Start.p æD PROCEDURE GetDefaultStartup(paramBlock: DefStartPtr); INLINE $205F,$A07D; æKY SetDefaultStartup æT Function æFc Start.p æD PROCEDURE SetDefaultStartup(paramBlock: DefStartPtr); INLINE $205F,$A07E; æKY GetVideoDefault æT Function æFc Start.p æD PROCEDURE GetVideoDefault(paramBlock: DefVideoPtr); INLINE $205F,$A080; æKY SetVideoDefault æT Function æFc Start.p æD PROCEDURE SetVideoDefault(paramBlock: DefVideoPtr); INLINE $205F,$A081; æKY GetOSDefault æT Function æFc Start.p æD PROCEDURE GetOSDefault(paramBlock: DefOSPtr); INLINE $205F,$A084; æKY SetOSDefault æT Function æFc Start.p æD PROCEDURE SetOSDefault(paramBlock: DefOSPtr); INLINE $205F,$A083; æKY SetTimeout æT Function æFc Start.p æD PROCEDURE SetTimeout(count: INTEGER); æKY GetTimeout æT Function æFc Start.p æD PROCEDURE GetTimeout(VAR count: INTEGER); æKY SysEqu.p æKL ABusDCE ABusVars ADBBase AlarmState ApplLimit ApplZone ASCBase BootDrive BufPtr BufTgDate BufTgFBkNum BufTgFFlg BufTgFNum BusErrVct CaretTime ChunkyDepth ColLines CommToolboxGlobals CPUFlag CQDGlobals CrsrAddr CrsrBase CrsrBusy CrsrCouple CrsrDevice CrsrNew CrsrObscure CrsrPin CrsrPtr CrsrRect CrsrRow CrsrSave CrsrScale CrsrState CrsrThresh CrsrVis CurActivate CurApName CurApRefNum CurDeactive CurDirStore CurJTOffset CurMap CurPageOption CurPitch CurrentA5 CurStackBase DefltStack DeskHook DeskPattern DeviceList DoubleTime DragHook DrvQHdr DSAlertRect DSAlertTab DSCtrAdj DSDrawProc DSErrCode DskErr DskVerify DSWndUpdate DTQFlags DTQueue DTskQHdr DTskQTail EjectNotify EndSRTPtr EventQueue EvtBufCnt ExpandMem ExtStsDT GetParam GhostWindow GrayRgn GZMoveHnd GZRootHnd GZRootPtr HeapEnd HiHeapMark HiKeyLast HiliteMode HiliteRGB HpChk IAZNotify IconTLAddr IntFlag IntlSpec IWM JAllocCrsr JCrsrTask JDTInstall JFetch JGNEFilter JIODone JKybdTask JOpcodeProc JournalFlag JournalRef JSetCCrsr JStash JSwapMMU JVBLTask KbdLast KbdType KbdVars Key1Trans Key2Trans KeyLast KeyMapLM KeyMVars KeypadMap KeyRepThresh KeyRepTime KeyThresh KeyTime LastTxGDevice LaunchFlag Lo3Bytes LoaderPBlock LoadTrap Lvl1DT Lvl2DT MainDevice MaskBC MaskHandle MaskPtr MBarHeight MBState MBTicks MemErr MemTop MickeyBytes MinStack MinusOne MMDefFlags MmInOK MMU32bit MMUFlags MMUFluff MMUTbl MMUTblSize MMUType MonkeyLives Mouse MouseMask MouseOffset MTemp NewCrsrJTbl NMIFlag OneOne PaintWhite PCDeskPat PortAUse PortBUse PortList PWMBuf2 QDColors QDErrLM QDExist RAMBase RawMouse ResErr ResErrProc ResLoad ResReadOnly RestProc ResumeProc RGBBlack RGBWhite RndSeed ROM85 ROMBase ROMMapHndl RomMapInsert RowBits SaveSegHandle SCCASts SCCBSts SCCRd SCCWr ScrapCount ScrapEnd ScrapHandle ScrapInfo ScrapName ScrapSize ScrapState ScrapTag ScrapVars Scratch20 Scratch8 ScrDmpEnb ScrDmpType ScreenBytes ScreenRow ScrHRes ScrnBase ScrnVBLPtr ScrVRes SCSIBase SCSIDMA SCSIGlobals SCSIHsk SCSIPoll SdmBusErr SDMJmpTblPtr SdVolume SegHiEnable SerialVars SEVarBase SEvtEnb SFSaveDisk SInfoPtr SInitFlags SlotPrTbl SlotQDT SlotTICKS SlotVBLQ SMGlobals SoundActive SoundBase SoundDCE SoundLevel SoundPtr SoundVBL SPAlarm SPATalkA SPATalkB SPClikCaret SPConfig SPFont SPKbd SPMisc1 SPMisc2 SPPortA SPPortB SPPrint SPValid SPVolCtl SrcDevice SRsrcTblPtr StkLowPt SwitcherTPtr SysEvtBuf SysEvtMask SysMap SysMapHndl SysParam SysResName SysVersion SysZone TableSeed TagData TEDoText TERecal TEScrpHandle TEScrpLength TESysJust TEWdBreak TheCrsr TheGDevice TheZone Ticks TimeDBRA TimeLM TimeSCCDB TimeSCSIDB TmpResLoad TopMapHndl UnitNtryCnt UTableBase VBLQueue VertRRate VIA VIA2DT VideoInfoOK VidMode VidType WarmStart WindowList WMgrCPort WMgrPort WordRedraw WWExist æKY PCDeskPat æT constant æFc SysEqu.p æD PCDeskPat = $20B; {[GLOBAL VAR] desktop pat, top bit only! others are in use} æKY HiKeyLast æT constant æFc SysEqu.p æD HiKeyLast = $216; {[GLOBAL VAR] Same as KbdVars} æKY KbdLast æT constant æFc SysEqu.p æD KbdLast = $218; {[GLOBAL VAR] Same as KbdVars+2} æKY ExpandMem æT constant æFc SysEqu.p æD ExpandMem = $2B6; {[GLOBAL VAR] pointer to expanded memory block} æKY SCSIBase æT constant æFc SysEqu.p æD SCSIBase = $0C00; {[GLOBAL VAR] (long) base address for SCSI chip read} æKY SCSIDMA æT constant æFc SysEqu.p æD SCSIDMA = $0C04; {[GLOBAL VAR] (long) base address for SCSI DMA} æKY SCSIHsk æT constant æFc SysEqu.p æD SCSIHsk = $0C08; {[GLOBAL VAR] (long) base address for SCSI handshake} æKY SCSIGlobals æT constant æFc SysEqu.p æD SCSIGlobals = $0C0C; {[GLOBAL VAR] (long) ptr for SCSI mgr locals} æKY RGBBlack æT constant æFc SysEqu.p æD RGBBlack = $0C10; {[GLOBAL VAR] (6 bytes) the black field for color} æKY RGBWhite æT constant æFc SysEqu.p æD RGBWhite = $0C16; {[GLOBAL VAR] (6 bytes) the white field for color} æKY RowBits æT constant æFc SysEqu.p æD RowBits = $0C20; {[GLOBAL VAR] (word) screen horizontal pixels} æKY ColLines æT constant æFc SysEqu.p æD ColLines = $0C22; {[GLOBAL VAR] (word) screen vertical pixels} æKY ScreenBytes æT constant æFc SysEqu.p æD ScreenBytes = $0C24; {[GLOBAL VAR] (long) total screen bytes} æKY NMIFlag æT constant æFc SysEqu.p æD NMIFlag = $0C2C; {[GLOBAL VAR] (byte) flag for NMI debounce} æKY VidType æT constant æFc SysEqu.p æD VidType = $0C2D; {[GLOBAL VAR] (byte) video board type ID} æKY VidMode æT constant æFc SysEqu.p æD VidMode = $0C2E; {[GLOBAL VAR] (byte) video mode (4=4bit color)} æKY SCSIPoll æT constant æFc SysEqu.p æD SCSIPoll = $0C2F; {[GLOBAL VAR] (byte) poll for device zero only once.} æKY SEVarBase æT constant æFc SysEqu.p æD SEVarBase = $0C30; {[GLOBAL VAR] } æKY MMUFlags æT constant æFc SysEqu.p æD MMUFlags = $0CB0; {[GLOBAL VAR] (byte) cleared to zero (reserved for future use)} æKY MMUType æT constant æFc SysEqu.p æD MMUType = $0CB1; {[GLOBAL VAR] (byte) kind of MMU present} æKY MMU32bit æT constant æFc SysEqu.p æD MMU32bit = $0CB2; {[GLOBAL VAR] (byte) boolean reflecting current machine MMU mode} æKY MMUFluff æT constant æFc SysEqu.p æD MMUFluff = $0CB3; {[GLOBAL VAR] (byte) fluff byte forced by reducing MMUMode to MMU32bit.} æKY MMUTbl æT constant æFc SysEqu.p æD MMUTbl = $0CB4; {[GLOBAL VAR] (long) pointer to MMU Mapping table} æKY MMUTblSize æT constant æFc SysEqu.p æD MMUTblSize = $0CB8; {[GLOBAL VAR] (long) size of the MMU mapping table} æKY SInfoPtr æT constant æFc SysEqu.p æD SInfoPtr = $0CBC; {[GLOBAL VAR] (long) pointer to Slot manager information} æKY ASCBase æT constant æFc SysEqu.p æD ASCBase = $0CC0; {[GLOBAL VAR] (long) pointer to Sound Chip} æKY SMGlobals æT constant æFc SysEqu.p æD SMGlobals = $0CC4; { (long) pointer to Sound Manager Globals} æKY TheGDevice æT constant æFc SysEqu.p æD TheGDevice = $0CC8; {[GLOBAL VAR] (long) the current graphics device} æKY CQDGlobals æT constant æFc SysEqu.p æD CQDGlobals = $0CCC; { (long) quickDraw global extensions} æKY ADBBase æT constant æFc SysEqu.p æD ADBBase = $0CF8; {[GLOBAL VAR] (long) pointer to Front Desk Buss Variables} æKY WarmStart æT constant æFc SysEqu.p æD WarmStart = $0CFC; {[GLOBAL VAR] (long) flag to indicate it is a warm start} æKY TimeDBRA æT constant æFc SysEqu.p æD TimeDBRA = $0D00; {[GLOBAL VAR] (word) number of iterations of DBRA per millisecond} æKY TimeSCCDB æT constant æFc SysEqu.p æD TimeSCCDB = $0D02; {[GLOBAL VAR] (word) number of iter's of SCC access & DBRA.} æKY SlotQDT æT constant æFc SysEqu.p æD SlotQDT = $0D04; {[GLOBAL VAR] ptr to slot queue table} æKY SlotPrTbl æT constant æFc SysEqu.p æD SlotPrTbl = $0D08; {[GLOBAL VAR] ptr to slot priority table} æKY SlotVBLQ æT constant æFc SysEqu.p æD SlotVBLQ = $0D0C; {[GLOBAL VAR] ptr to slot VBL queue table} æKY ScrnVBLPtr æT constant æFc SysEqu.p æD ScrnVBLPtr = $0D10; {[GLOBAL VAR] save for ptr to main screen VBL queue} æKY SlotTICKS æT constant æFc SysEqu.p æD SlotTICKS = $0D14; {[GLOBAL VAR] ptr to slot tickcount table} æKY TableSeed æT constant æFc SysEqu.p æD TableSeed = $0D20; {[GLOBAL VAR] (long) seed value for color table ID's} æKY SRsrcTblPtr æT constant æFc SysEqu.p æD SRsrcTblPtr = $0D24; {[GLOBAL VAR] (long) pointer to slot resource table.} æKY JVBLTask æT constant æFc SysEqu.p æD JVBLTask = $0D28; {[GLOBAL VAR] vector to slot VBL task interrupt handler} æKY WMgrCPort æT constant æFc SysEqu.p æD WMgrCPort = $0D2C; {[GLOBAL VAR] window manager color port } æKY VertRRate æT constant æFc SysEqu.p æD VertRRate = $0D30; {[GLOBAL VAR] (word) Vertical refresh rate for start manager. } æKY ChunkyDepth æT constant æFc SysEqu.p æD ChunkyDepth = $0D60; {[GLOBAL VAR] depth of the pixels} æKY CrsrPtr æT constant æFc SysEqu.p æD CrsrPtr = $0D62; {[GLOBAL VAR] pointer to cursor save area} æKY PortList æT constant æFc SysEqu.p æD PortList = $0D66; {[GLOBAL VAR] list of grafports} æKY MickeyBytes æT constant æFc SysEqu.p æD MickeyBytes = $0D6A; {[GLOBAL VAR] long pointer to cursor stuff} æKY QDErrLM æT constant æFc SysEqu.p æD QDErrLM = $0D6E; {[GLOBAL VAR] QDErr has name conflict w/ type. QuickDraw error code [word]} æKY VIA2DT æT constant æFc SysEqu.p æD VIA2DT = $0D70; {[GLOBAL VAR] 32 bytes for VIA2 dispatch table for NuMac} æKY SInitFlags æT constant æFc SysEqu.p æD SInitFlags = $0D90; {[GLOBAL VAR] StartInit.a flags [word]} æKY DTQueue æT constant æFc SysEqu.p æD DTQueue = $0D92; {[GLOBAL VAR] (10 bytes) deferred task queue header} æKY DTQFlags æT constant æFc SysEqu.p æD DTQFlags = $0D92; {[GLOBAL VAR] flag word for DTQueue} æKY DTskQHdr æT constant æFc SysEqu.p æD DTskQHdr = $0D94; {[GLOBAL VAR] ptr to head of queue} æKY DTskQTail æT constant æFc SysEqu.p æD DTskQTail = $0D98; {[GLOBAL VAR] ptr to tail of queue} æKY JDTInstall æT constant æFc SysEqu.p æD JDTInstall = $0D9C; {[GLOBAL VAR] (long) ptr to deferred task install routine} æKY HiliteRGB æT constant æFc SysEqu.p æD HiliteRGB = $0DA0; {[GLOBAL VAR] 6 bytes: rgb of hilite color} æKY TimeSCSIDB æT constant æFc SysEqu.p æD TimeSCSIDB = $0DA6; {[GLOBAL VAR] (word) number of iter's of SCSI access & DBRA} æKY DSCtrAdj æT constant æFc SysEqu.p æD DSCtrAdj = $0DA8; {[GLOBAL VAR] (long) Center adjust for DS rect.} æKY IconTLAddr æT constant æFc SysEqu.p æD IconTLAddr = $0DAC; {[GLOBAL VAR] (long) pointer to where start icons are to be put.} æKY VideoInfoOK æT constant æFc SysEqu.p æD VideoInfoOK = $0DB0; {[GLOBAL VAR] (long) Signals to CritErr that the Video card is ok} æKY EndSRTPtr æT constant æFc SysEqu.p æD EndSRTPtr = $0DB4; {[GLOBAL VAR] (long) Pointer to the end of the Slot Resource Table (Not the SRT buffer).} æKY SDMJmpTblPtr æT constant æFc SysEqu.p æD SDMJmpTblPtr = $0DB8; {[GLOBAL VAR] (long) Pointer to the SDM jump table} æKY JSwapMMU æT constant æFc SysEqu.p æD JSwapMMU = $0DBC; {[GLOBAL VAR] (long) jump vector to SwapMMU routine} æKY SdmBusErr æT constant æFc SysEqu.p æD SdmBusErr = $0DC0; {[GLOBAL VAR] (long) Pointer to the SDM busErr handler} æKY LastTxGDevice æT constant æFc SysEqu.p æD LastTxGDevice = $0DC4; {[GLOBAL VAR] (long) copy of TheGDevice set up for fast text measure} æKY NewCrsrJTbl æT constant æFc SysEqu.p æD NewCrsrJTbl = $88C; {[GLOBAL VAR] location of new crsr jump vectors} æKY JAllocCrsr æT constant æFc SysEqu.p æD JAllocCrsr = $88C; {[GLOBAL VAR] (long) vector to routine that allocates cursor} æKY JSetCCrsr æT constant æFc SysEqu.p æD JSetCCrsr = $890; {[GLOBAL VAR] (long) vector to routine that sets color cursor} æKY JOpcodeProc æT constant æFc SysEqu.p æD JOpcodeProc = $894; {[GLOBAL VAR] (long) vector to process new picture opcodes} æKY CrsrBase æT constant æFc SysEqu.p æD CrsrBase = $898; {[GLOBAL VAR] (long) scrnBase for cursor} æKY CrsrDevice æT constant æFc SysEqu.p æD CrsrDevice = $89C; {[GLOBAL VAR] (long) current cursor device} æKY SrcDevice æT constant æFc SysEqu.p æD SrcDevice = $8A0; {[GLOBAL VAR] (LONG) Src device for Stretchbits} æKY MainDevice æT constant æFc SysEqu.p æD MainDevice = $8A4; {[GLOBAL VAR] (long) the main screen device} æKY DeviceList æT constant æFc SysEqu.p æD DeviceList = $8A8; {[GLOBAL VAR] (long) list of display devices} æKY CrsrRow æT constant æFc SysEqu.p æD CrsrRow = $8AC; {[GLOBAL VAR] (word) rowbytes for current cursor screen} æKY QDColors æT constant æFc SysEqu.p æD QDColors = $8B0; {[GLOBAL VAR] (long) handle to default colors} æKY HiliteMode æT constant æFc SysEqu.p æD HiliteMode = $938; {[GLOBAL VAR] used for color highlighting} æKY BusErrVct æT constant æFc SysEqu.p æD BusErrVct = $08; {[GLOBAL VAR] bus error vector} æKY RestProc æT constant æFc SysEqu.p æD RestProc = $A8C; {[GLOBAL VAR] Resume procedure f InitDialogs [pointer]} æKY ROM85 æT constant æFc SysEqu.p æD ROM85 = $28E; {[GLOBAL VAR] (word) actually high bit - 0 for ROM vers $75 (sic) and later} æKY ROMMapHndl æT constant æFc SysEqu.p æD ROMMapHndl = $B06; {[GLOBAL VAR] (long) handle of ROM resource map} æKY ScrVRes æT constant æFc SysEqu.p æD ScrVRes = $102; {[GLOBAL VAR] Pixels per inch vertically (word) screen vertical dots/inch [word]} æKY ScrHRes æT constant æFc SysEqu.p æD ScrHRes = $104; {[GLOBAL VAR] Pixels per inch horizontally (word) screen horizontal dots/inch [word]} æKY ScrnBase æT constant æFc SysEqu.p æD ScrnBase = $824; {[GLOBAL VAR] Address of main screen buffer Screen Base [pointer]} æKY ScreenRow æT constant æFc SysEqu.p æD ScreenRow = $106; {[GLOBAL VAR] rowBytes of screen [word]} æKY MBTicks æT constant æFc SysEqu.p æD MBTicks = $16E; {[GLOBAL VAR] tick count @ last mouse button [long]} æKY JKybdTask æT constant æFc SysEqu.p æD JKybdTask = $21A; {[GLOBAL VAR] keyboard VBL task hook [pointer]} æKY KeyLast æT constant æFc SysEqu.p æD KeyLast = $184; {[GLOBAL VAR] ASCII for last valid keycode [word]} æKY KeyTime æT constant æFc SysEqu.p æD KeyTime = $186; {[GLOBAL VAR] tickcount when KEYLAST was rec'd [long]} æKY KeyRepTime æT constant æFc SysEqu.p æD KeyRepTime = $18A; {[GLOBAL VAR] tickcount when key was last repeated [long]} æKY SPConfig æT constant æFc SysEqu.p æD SPConfig = $1FB; {[GLOBAL VAR] Use types for serial ports (byte) config bits: 4-7 A, 0-3 B (see use type below)} æKY SPPortA æT constant æFc SysEqu.p æD SPPortA = $1FC; {[GLOBAL VAR] Modem port configuration (word) SCC port A configuration [word]} æKY SPPortB æT constant æFc SysEqu.p æD SPPortB = $1FE; {[GLOBAL VAR] Printer port configuration (word) SCC port B configuration [word]} æKY SCCRd æT constant æFc SysEqu.p æD SCCRd = $1D8; {[GLOBAL VAR] SCC read base address SCC base read address [pointer]} æKY SCCWr æT constant æFc SysEqu.p æD SCCWr = $1DC; {[GLOBAL VAR] SCC write base address SCC base write address [pointer]} æKY DoubleTime æT constant æFc SysEqu.p æD DoubleTime = $2F0; {[GLOBAL VAR] Double-click interval in ticks (long) double click ticks [long]} æKY CaretTime æT constant æFc SysEqu.p æD CaretTime = $2F4; {[GLOBAL VAR] Caret-blink interval in ticks (long) caret blink ticks [long]} æKY KeyThresh æT constant æFc SysEqu.p æD KeyThresh = $18E; {[GLOBAL VAR] Auto-key threshold (word) threshold for key repeat [word]} æKY KeyRepThresh æT constant æFc SysEqu.p æD KeyRepThresh = $190; {[GLOBAL VAR] Auto-key rate (word) key repeat speed [word]} æKY SdVolume æT constant æFc SysEqu.p æD SdVolume = $260; {[GLOBAL VAR] Current speaker volume (byte: low-order three bits only) Global volume(sound) control [byte]} æKY Ticks æT constant æFc SysEqu.p æD Ticks = $16A; {[GLOBAL VAR] Current number of ticks since system startup (long) Tick count, time since boot [unsigned long]} æKY TimeLM æT constant æFc SysEqu.p æD TimeLM = $20C; {[GLOBAL VAR] Time has name conflict w/ type. Clock time (extrapolated) [long]} æKY MonkeyLives æT constant æFc SysEqu.p æD MonkeyLives = $100; {[GLOBAL VAR] monkey lives if >= 0 [word]} æKY SEvtEnb æT constant æFc SysEqu.p æD SEvtEnb = $15C; {[GLOBAL VAR] 0 if SystemEvent should return FALSE (byte) enable SysEvent calls from GNE [byte]} æKY JournalFlag æT constant æFc SysEqu.p æD JournalFlag = $8DE; {[GLOBAL VAR] Journaling mode (word) journaling state [word]} æKY JournalRef æT constant æFc SysEqu.p æD JournalRef = $8E8; {[GLOBAL VAR] Reference number of journaling device driver (word) Journalling driver's refnum [word]} æKY BufPtr æT constant æFc SysEqu.p æD BufPtr = $10C; {[GLOBAL VAR] Address of end of jump table top of application memory [pointer]} æKY StkLowPt æT constant æFc SysEqu.p æD StkLowPt = $110; {[GLOBAL VAR] Lowest stack as measured in VBL task [pointer]} æKY TheZone æT constant æFc SysEqu.p æD TheZone = $118; {[GLOBAL VAR] Address of current heap zone current heap zone [pointer]} æKY ApplLimit æT constant æFc SysEqu.p æD ApplLimit = $130; {[GLOBAL VAR] Application heap limit application limit [pointer]} æKY SysZone æT constant æFc SysEqu.p æD SysZone = $2A6; {[GLOBAL VAR] Address of system heap zone system heap zone [pointer]} æKY ApplZone æT constant æFc SysEqu.p æD ApplZone = $2AA; {[GLOBAL VAR] Address of application heap zone application heap zone [pointer]} æKY HeapEnd æT constant æFc SysEqu.p æD HeapEnd = $114; {[GLOBAL VAR] Address of end of application heap zone end of heap [pointer]} æKY HiHeapMark æT constant æFc SysEqu.p æD HiHeapMark = $BAE; {[GLOBAL VAR] (long) highest address used by a zone below sp<01Nov85 JTC>} æKY MemErr æT constant æFc SysEqu.p æD MemErr = $220; {[GLOBAL VAR] last memory manager error [word]} æKY UTableBase æT constant æFc SysEqu.p æD UTableBase = $11C; {[GLOBAL VAR] Base address of unit table unit I/O table [pointer]} æKY UnitNtryCnt æT constant æFc SysEqu.p æD UnitNtryCnt = $1D2; {[GLOBAL VAR] count of entries in unit table [word]} æKY JFetch æT constant æFc SysEqu.p æD JFetch = $8F4; {[GLOBAL VAR] Jump vector for Fetch function fetch a byte routine for drivers [pointer]} æKY JStash æT constant æFc SysEqu.p æD JStash = $8F8; {[GLOBAL VAR] Jump vector for Stash function stash a byte routine for drivers [pointer]} æKY JIODone æT constant æFc SysEqu.p æD JIODone = $8FC; {[GLOBAL VAR] Jump vector for IODone function IODone entry location [pointer]} æKY DrvQHdr æT constant æFc SysEqu.p æD DrvQHdr = $308; {[GLOBAL VAR] Drive queue header (10 bytes) queue header of drives in system [10 bytes]} æKY BootDrive æT constant æFc SysEqu.p æD BootDrive = $210; {[GLOBAL VAR] drive number of boot drive [word]} æKY EjectNotify æT constant æFc SysEqu.p æD EjectNotify = $338; {[GLOBAL VAR] eject notify procedure [pointer]} æKY IAZNotify æT constant æFc SysEqu.p æD IAZNotify = $33C; {[GLOBAL VAR] world swaps notify procedure [pointer]} æKY SFSaveDisk æT constant æFc SysEqu.p æD SFSaveDisk = $214; {[GLOBAL VAR] Negative of volume reference number used by Standard File Package (word) last vRefNum seen by standard file [word]} æKY CurDirStore æT constant æFc SysEqu.p æD CurDirStore = $398; {[GLOBAL VAR] save dir across calls to Standard File [long]} æKY OneOne æT constant æFc SysEqu.p æD OneOne = $A02; {[GLOBAL VAR] $00010001 constant $00010001 [long]} æKY MinusOne æT constant æFc SysEqu.p æD MinusOne = $A06; {[GLOBAL VAR] $FFFFFFFF constant $FFFFFFFF [long]} æKY Lo3Bytes æT constant æFc SysEqu.p æD Lo3Bytes = $31A; {[GLOBAL VAR] $00FFFFFF constant $00FFFFFF [long]} æKY ROMBase æT constant æFc SysEqu.p æD ROMBase = $2AE; {[GLOBAL VAR] Base address of ROM ROM base address [pointer]} æKY RAMBase æT constant æFc SysEqu.p æD RAMBase = $2B2; {[GLOBAL VAR] Trap dispatch table's base address for routines in RAM RAM base address [pointer]} æKY SysVersion æT constant æFc SysEqu.p æD SysVersion = $15A; {[GLOBAL VAR] version # of RAM-based system [word]} æKY RndSeed æT constant æFc SysEqu.p æD RndSeed = $156; {[GLOBAL VAR] Random number seed (long) random seed/number [long]} æKY Scratch20 æT constant æFc SysEqu.p æD Scratch20 = $1E4; {[GLOBAL VAR] 20-byte scratch area scratch [20 bytes]} æKY Scratch8 æT constant æFc SysEqu.p æD Scratch8 = $9FA; {[GLOBAL VAR] 8-byte scratch area scratch [8 bytes]} æKY ScrapSize æT constant æFc SysEqu.p æD ScrapSize = $960; {[GLOBAL VAR] Size in bytes of desk scrap (long) scrap length [long]} æKY ScrapHandle æT constant æFc SysEqu.p æD ScrapHandle = $964; {[GLOBAL VAR] Handle to desk scrap in memory memory scrap [handle]} æKY ScrapCount æT constant æFc SysEqu.p æD ScrapCount = $968; {[GLOBAL VAR] Count changed by ZeroScrap (word) validation byte [word]} æKY ScrapState æT constant æFc SysEqu.p æD ScrapState = $96A; {[GLOBAL VAR] Tells where desk scrap is (word) scrap state [word]} æKY ScrapName æT constant æFc SysEqu.p æD ScrapName = $96C; {[GLOBAL VAR] Pointer to scrap file name (preceded by length byte) pointer to scrap name [pointer]} æKY IntlSpec æT constant æFc SysEqu.p æD IntlSpec = $BA0; {[GLOBAL VAR] (long) - ptr to extra Intl data } æKY SwitcherTPtr æT constant æFc SysEqu.p æD SwitcherTPtr = $286; {[GLOBAL VAR] Switcher's switch table } æKY CPUFlag æT constant æFc SysEqu.p æD CPUFlag = $12F; {[GLOBAL VAR] $00=68000, $01=68010, $02=68020 (old ROM inits to $00)} æKY VIA æT constant æFc SysEqu.p æD VIA = $1D4; {[GLOBAL VAR] VIA base address VIA base address [pointer]} æKY IWM æT constant æFc SysEqu.p æD IWM = $1E0; {[GLOBAL VAR] IWM base address [pointer]} æKY Lvl1DT æT constant æFc SysEqu.p æD Lvl1DT = $192; {[GLOBAL VAR] Level-1 secondary interrupt vector table (32 bytes) Interrupt level 1 dispatch table [32 bytes]} æKY Lvl2DT æT constant æFc SysEqu.p æD Lvl2DT = $1B2; {[GLOBAL VAR] Level-2 secondary interrupt vector table (32 bytes) Interrupt level 2 dispatch table [32 bytes]} æKY ExtStsDT æT constant æFc SysEqu.p æD ExtStsDT = $2BE; {[GLOBAL VAR] External/status interrupt vector table (16 bytes) SCC ext/sts secondary dispatch table [16 bytes]} æKY SPValid æT constant æFc SysEqu.p æD SPValid = $1F8; {[GLOBAL VAR] Validity status (byte) validation field ($A7) [byte]} æKY SPATalkA æT constant æFc SysEqu.p æD SPATalkA = $1F9; {[GLOBAL VAR] AppleTalk node ID hint for modem port (byte) AppleTalk node number hint for port A} æKY SPATalkB æT constant æFc SysEqu.p æD SPATalkB = $1FA; {[GLOBAL VAR] AppleTalk node ID hint for printer port (byte) AppleTalk node number hint for port B} æKY SPAlarm æT constant æFc SysEqu.p æD SPAlarm = $200; {[GLOBAL VAR] Alarm setting (long) alarm time [long]} æKY SPFont æT constant æFc SysEqu.p æD SPFont = $204; {[GLOBAL VAR] Application font number minus 1 (word) default application font number minus 1 [word]} æKY SPKbd æT constant æFc SysEqu.p æD SPKbd = $206; {[GLOBAL VAR] Auto-key threshold and rate (byte) kbd repeat thresh in 4/60ths [2 4-bit]} æKY SPPrint æT constant æFc SysEqu.p æD SPPrint = $207; {[GLOBAL VAR] Printer connection (byte) print stuff [byte]} æKY SPVolCtl æT constant æFc SysEqu.p æD SPVolCtl = $208; {[GLOBAL VAR] Speaker volume setting in parameter RAM (byte) volume control [byte]} æKY SPClikCaret æT constant æFc SysEqu.p æD SPClikCaret = $209; {[GLOBAL VAR] Double-click and caret-blink times (byte) double click/caret time in 4/60ths[2 4-bit]} æKY SPMisc1 æT constant æFc SysEqu.p æD SPMisc1 = $20A; {[GLOBAL VAR] miscellaneous [1 byte]} æKY SPMisc2 æT constant æFc SysEqu.p æD SPMisc2 = $20B; {[GLOBAL VAR] Mouse scaling, system startup disk, menu blink (byte) miscellaneous [1 byte]} æKY GetParam æT constant æFc SysEqu.p æD GetParam = $1E4; {[GLOBAL VAR] system parameter scratch [20 bytes]} æKY SysParam æT constant æFc SysEqu.p æD SysParam = $1F8; {[GLOBAL VAR] Low-memory copy of parameter RAM (20 bytes) system parameter memory [20 bytes]} æKY CrsrThresh æT constant æFc SysEqu.p æD CrsrThresh = $8EC; {[GLOBAL VAR] Mouse-scaling threshold (word) delta threshold for mouse scaling [word]} æKY JCrsrTask æT constant æFc SysEqu.p æD JCrsrTask = $8EE; {[GLOBAL VAR] address of CrsrVBLTask [long]} æKY MTemp æT constant æFc SysEqu.p æD MTemp = $828; {[GLOBAL VAR] Low-level interrupt mouse location [long]} æKY RawMouse æT constant æFc SysEqu.p æD RawMouse = $82C; {[GLOBAL VAR] un-jerked mouse coordinates [long]} æKY CrsrRect æT constant æFc SysEqu.p æD CrsrRect = $83C; {[GLOBAL VAR] Cursor hit rectangle [8 bytes]} æKY TheCrsr æT constant æFc SysEqu.p æD TheCrsr = $844; {[GLOBAL VAR] Cursor data, mask & hotspot [68 bytes]} æKY CrsrAddr æT constant æFc SysEqu.p æD CrsrAddr = $888; {[GLOBAL VAR] Address of data under cursor [long]} æKY CrsrSave æT constant æFc SysEqu.p æD CrsrSave = $88C; {[GLOBAL VAR] data under the cursor [64 bytes]} æKY CrsrVis æT constant æFc SysEqu.p æD CrsrVis = $8CC; {[GLOBAL VAR] Cursor visible? [byte]} æKY CrsrBusy æT constant æFc SysEqu.p æD CrsrBusy = $8CD; {[GLOBAL VAR] Cursor locked out? [byte]} æKY CrsrNew æT constant æFc SysEqu.p æD CrsrNew = $8CE; {[GLOBAL VAR] Cursor changed? [byte]} æKY CrsrState æT constant æFc SysEqu.p æD CrsrState = $8D0; {[GLOBAL VAR] Cursor nesting level [word]} æKY CrsrObscure æT constant æFc SysEqu.p æD CrsrObscure = $8D2; {[GLOBAL VAR] Cursor obscure semaphore [byte]} æKY KbdVars æT constant æFc SysEqu.p æD KbdVars = $216; {[GLOBAL VAR] Keyboard manager variables [4 bytes]} æKY KbdType æT constant æFc SysEqu.p æD KbdType = $21E; {[GLOBAL VAR] keyboard model number [byte]} æKY MBState æT constant æFc SysEqu.p æD MBState = $172; {[GLOBAL VAR] current mouse button state [byte]} æKY KeyMapLM æT constant æFc SysEqu.p æD KeyMapLM = $174; {[GLOBAL VAR] KeyMap has name conflict w/ type. Bitmap of the keyboard [4 longs]} æKY KeypadMap æT constant æFc SysEqu.p æD KeypadMap = $17C; {[GLOBAL VAR] bitmap for numeric pad-18bits [long]} æKY Key1Trans æT constant æFc SysEqu.p æD Key1Trans = $29E; {[GLOBAL VAR] keyboard translator procedure [pointer]} æKY Key2Trans æT constant æFc SysEqu.p æD Key2Trans = $2A2; {[GLOBAL VAR] numeric keypad translator procedure [pointer]} æKY JGNEFilter æT constant æFc SysEqu.p æD JGNEFilter = $29A; {[GLOBAL VAR] GetNextEvent filter proc [pointer]} æKY KeyMVars æT constant æFc SysEqu.p æD KeyMVars = $B04; {[GLOBAL VAR] (word) for ROM KEYM proc state} æKY Mouse æT constant æFc SysEqu.p æD Mouse = $830; {[GLOBAL VAR] processed mouse coordinate [long]} æKY CrsrPin æT constant æFc SysEqu.p æD CrsrPin = $834; {[GLOBAL VAR] cursor pinning rectangle [8 bytes]} æKY CrsrCouple æT constant æFc SysEqu.p æD CrsrCouple = $8CF; {[GLOBAL VAR] cursor coupled to mouse? [byte]} æKY CrsrScale æT constant æFc SysEqu.p æD CrsrScale = $8D3; {[GLOBAL VAR] cursor scaled? [byte]} æKY MouseMask æT constant æFc SysEqu.p æD MouseMask = $8D6; {[GLOBAL VAR] V-H mask for ANDing with mouse [long]} æKY MouseOffset æT constant æFc SysEqu.p æD MouseOffset = $8DA; {[GLOBAL VAR] V-H offset for adding after ANDing [long]} æKY AlarmState æT constant æFc SysEqu.p æD AlarmState = $21F; {[GLOBAL VAR] Bit7=parity, Bit6=beeped, Bit0=enable [byte]} æKY VBLQueue æT constant æFc SysEqu.p æD VBLQueue = $160; {[GLOBAL VAR] Vertical retrace queue header (10 bytes) VBL queue header [10 bytes]} æKY SysEvtMask æT constant æFc SysEqu.p æD SysEvtMask = $144; {[GLOBAL VAR] System event mask (word) system event mask [word]} æKY SysEvtBuf æT constant æFc SysEqu.p æD SysEvtBuf = $146; {[GLOBAL VAR] system event queue element buffer [pointer]} æKY EventQueue æT constant æFc SysEqu.p æD EventQueue = $14A; {[GLOBAL VAR] Event queue header (10 bytes) event queue header [10 bytes]} æKY EvtBufCnt æT constant æFc SysEqu.p æD EvtBufCnt = $154; {[GLOBAL VAR] max number of events in SysEvtBuf - 1 [word]} æKY GZRootHnd æT constant æFc SysEqu.p æD GZRootHnd = $328; {[GLOBAL VAR] Handle to relocatable block not to be moved by grow zone function root handle for GrowZone [handle]} æKY GZRootPtr æT constant æFc SysEqu.p æD GZRootPtr = $32C; {[GLOBAL VAR] root pointer for GrowZone [pointer]} æKY GZMoveHnd æT constant æFc SysEqu.p æD GZMoveHnd = $330; {[GLOBAL VAR] moving handle for GrowZone [handle]} æKY MemTop æT constant æFc SysEqu.p æD MemTop = $108; {[GLOBAL VAR] Address of end of RAM (on Macintosh XL, end of RAM available to applications) top of memory [pointer]} æKY MmInOK æT constant æFc SysEqu.p æD MmInOK = $12E; {[GLOBAL VAR] initial memory mgr checks ok? [byte]} æKY HpChk æT constant æFc SysEqu.p æD HpChk = $316; {[GLOBAL VAR] heap check RAM code [pointer]} æKY MaskBC æT constant æFc SysEqu.p æD MaskBC = $31A; {[GLOBAL VAR] Memory Manager Byte Count Mask [long]} æKY MaskHandle æT constant æFc SysEqu.p æD MaskHandle = $31A; {[GLOBAL VAR] Memory Manager Handle Mask [long]} æKY MaskPtr æT constant æFc SysEqu.p æD MaskPtr = $31A; {[GLOBAL VAR] Memory Manager Pointer Mask [long]} æKY MinStack æT constant æFc SysEqu.p æD MinStack = $31E; {[GLOBAL VAR] Minimum space allotment for stack (long) min stack size used in InitApplZone [long]} æKY DefltStack æT constant æFc SysEqu.p æD DefltStack = $322; {[GLOBAL VAR] Default space allotment for stack (long) default size of stack [long]} æKY MMDefFlags æT constant æFc SysEqu.p æD MMDefFlags = $326; {[GLOBAL VAR] default zone flags [word]} æKY DSAlertTab æT constant æFc SysEqu.p æD DSAlertTab = $2BA; {[GLOBAL VAR] Pointer to system error alert table in use system error alerts [pointer]} æKY DSAlertRect æT constant æFc SysEqu.p æD DSAlertRect = $3F8; {[GLOBAL VAR] Rectangle enclosing system error alert (8 bytes) rectangle for disk-switch alert [8 bytes]} æKY DSDrawProc æT constant æFc SysEqu.p æD DSDrawProc = $334; {[GLOBAL VAR] alternate syserror draw procedure [pointer]} æKY DSWndUpdate æT constant æFc SysEqu.p æD DSWndUpdate = $15D; {[GLOBAL VAR] GNE not to paintBehind DS AlertRect? [byte]} æKY WWExist æT constant æFc SysEqu.p æD WWExist = $8F2; {[GLOBAL VAR] window manager initialized? [byte]} æKY QDExist æT constant æFc SysEqu.p æD QDExist = $8F3; {[GLOBAL VAR] quickdraw is initialized [byte]} æKY ResumeProc æT constant æFc SysEqu.p æD ResumeProc = $A8C; {[GLOBAL VAR] Address of resume procedure Resume procedure from InitDialogs [pointer]} æKY DSErrCode æT constant æFc SysEqu.p æD DSErrCode = $AF0; {[GLOBAL VAR] Current system error ID (word) last system error alert ID} æKY IntFlag æT constant æFc SysEqu.p æD IntFlag = $15F; {[GLOBAL VAR] reduce interrupt disable time when bit 7 = 0} æKY SerialVars æT constant æFc SysEqu.p æD SerialVars = $2D0; {[GLOBAL VAR] async driver variables [16 bytes]} æKY ABusVars æT constant æFc SysEqu.p æD ABusVars = $2D8; {[GLOBAL VAR] Pointer to AppleTalk variables ;Pointer to AppleTalk local variables} æKY ABusDCE æT constant æFc SysEqu.p æD ABusDCE = $2DC; {[GLOBAL VAR] ;Pointer to AppleTalk DCE} æKY PortAUse æT constant æFc SysEqu.p æD PortAUse = $290; {[GLOBAL VAR] bit 7: 1 = not in use, 0 = in use} æKY PortBUse æT constant æFc SysEqu.p æD PortBUse = $291; {[GLOBAL VAR] Current availability of serial port B (byte) port B use, same format as PortAUse} æKY SCCASts æT constant æFc SysEqu.p æD SCCASts = $2CE; {[GLOBAL VAR] SCC read reg 0 last ext/sts rupt - A [byte]} æKY SCCBSts æT constant æFc SysEqu.p æD SCCBSts = $2CF; {[GLOBAL VAR] SCC read reg 0 last ext/sts rupt - B [byte]} æKY DskErr æT constant æFc SysEqu.p æD DskErr = $142; {[GLOBAL VAR] disk routine result code [word]} æKY PWMBuf2 æT constant æFc SysEqu.p æD PWMBuf2 = $312; {[GLOBAL VAR] PWM buffer 1 (or 2 if sound) [pointer]} æKY SoundPtr æT constant æFc SysEqu.p æD SoundPtr = $262; {[GLOBAL VAR] Pointer to four-tone record 4VE sound definition table [pointer]} æKY SoundBase æT constant æFc SysEqu.p æD SoundBase = $266; {[GLOBAL VAR] Pointer to free-form synthesizer buffer sound bitMap [pointer]} æKY SoundVBL æT constant æFc SysEqu.p æD SoundVBL = $26A; {[GLOBAL VAR] vertical retrace control element [16 bytes]} æKY SoundDCE æT constant æFc SysEqu.p æD SoundDCE = $27A; {[GLOBAL VAR] sound driver DCE [pointer]} æKY SoundActive æT constant æFc SysEqu.p æD SoundActive = $27E; {[GLOBAL VAR] sound is active? [byte]} æKY SoundLevel æT constant æFc SysEqu.p æD SoundLevel = $27F; {[GLOBAL VAR] Amplitude in 740-byte buffer (byte) current level in buffer [byte]} æKY CurPitch æT constant æFc SysEqu.p æD CurPitch = $280; {[GLOBAL VAR] Value of count in square-wave synthesizer buffer (word) current pitch value [word]} æKY DskVerify æT constant æFc SysEqu.p æD DskVerify = $12C; {[GLOBAL VAR] used by 3.5 disk driver for read/verify [byte]} æKY TagData æT constant æFc SysEqu.p æD TagData = $2FA; {[GLOBAL VAR] sector tag info for disk drivers [14 bytes]} æKY BufTgFNum æT constant æFc SysEqu.p æD BufTgFNum = $2FC; {[GLOBAL VAR] File tags buffer: file number (long) file number [long]} æKY BufTgFFlg æT constant æFc SysEqu.p æD BufTgFFlg = $300; {[GLOBAL VAR] File tags buffer: flags (word: bit 1=1 if resource fork) flags [word]} æKY BufTgFBkNum æT constant æFc SysEqu.p æD BufTgFBkNum = $302; {[GLOBAL VAR] File tags buffer: logical block number (word) logical block number [word]} æKY BufTgDate æT constant æFc SysEqu.p æD BufTgDate = $304; {[GLOBAL VAR] File tags buffer: date and time of last modification (long) time stamp [word]} æKY ScrDmpEnb æT constant æFc SysEqu.p æD ScrDmpEnb = $2F8; {[GLOBAL VAR] 0 if GetNextEvent shouldn't process Command-Shift-number combinations (byte) screen dump enabled? [byte]} æKY ScrDmpType æT constant æFc SysEqu.p æD ScrDmpType = $2F9; {[GLOBAL VAR] FF dumps screen, FE dumps front window [byte]} æKY ScrapVars æT constant æFc SysEqu.p æD ScrapVars = $960; {[GLOBAL VAR] scrap manager variables [32 bytes]} æKY ScrapInfo æT constant æFc SysEqu.p æD ScrapInfo = $960; {[GLOBAL VAR] scrap length [long]} æKY ScrapEnd æT constant æFc SysEqu.p æD ScrapEnd = $980; {[GLOBAL VAR] end of scrap vars} æKY ScrapTag æT constant æFc SysEqu.p æD ScrapTag = $970; {[GLOBAL VAR] scrap file name [STRING[15]]} æKY LaunchFlag æT constant æFc SysEqu.p æD LaunchFlag = $902; {[GLOBAL VAR] from launch or chain [byte]} æKY SaveSegHandle æT constant æFc SysEqu.p æD SaveSegHandle = $930; {[GLOBAL VAR] seg 0 handle [handle]} æKY CurJTOffset æT constant æFc SysEqu.p æD CurJTOffset = $934; {[GLOBAL VAR] Offset to jump table from location pointed to by A5 (word) current jump table offset [word]} æKY CurPageOption æT constant æFc SysEqu.p æD CurPageOption = $936; {[GLOBAL VAR] Sound/screen buffer configuration passed to Chain or Launch (word) current page 2 configuration [word]} æKY LoaderPBlock æT constant æFc SysEqu.p æD LoaderPBlock = $93A; {[GLOBAL VAR] param block for ExitToShell [10 bytes]} æKY CurApRefNum æT constant æFc SysEqu.p æD CurApRefNum = $900; {[GLOBAL VAR] Reference number of current application's resource file (word) refNum of application's resFile [word]} æKY CurrentA5 æT constant æFc SysEqu.p æD CurrentA5 = $904; {[GLOBAL VAR] Address of boundary between application globals and application parameters current value of A5 [pointer]} æKY CurStackBase æT constant æFc SysEqu.p æD CurStackBase = $908; {[GLOBAL VAR] Address of base of stack; start of application globals current stack base [pointer]} æKY CurApName æT constant æFc SysEqu.p æD CurApName = $910; {[GLOBAL VAR] Name of current application (length byte followed by up to 31 characters) name of application [STRING[31]]} æKY LoadTrap æT constant æFc SysEqu.p æD LoadTrap = $12D; {[GLOBAL VAR] trap before launch? [byte]} æKY SegHiEnable æT constant æFc SysEqu.p æD SegHiEnable = $BB2; {[GLOBAL VAR] (byte) 0 to disable MoveHHi in LoadSeg} æKY WindowList æT constant æFc SysEqu.p æD WindowList = $9D6; {[GLOBAL VAR] Pointer to first window in window list; 0 if using events but not windows Z-ordered linked list of windows [pointer]} æKY PaintWhite æT constant æFc SysEqu.p æD PaintWhite = $9DC; {[GLOBAL VAR] Flag for whether to paint window white before update event (word) erase newly drawn windows? [word]} æKY WMgrPort æT constant æFc SysEqu.p æD WMgrPort = $9DE; {[GLOBAL VAR] Pointer to Window Manager port window manager's grafport [pointer]} æKY GrayRgn æT constant æFc SysEqu.p æD GrayRgn = $9EE; {[GLOBAL VAR] Handle to region drawn as desktop rounded gray desk region [handle]} æKY CurActivate æT constant æFc SysEqu.p æD CurActivate = $A64; {[GLOBAL VAR] Pointer to window to receive activate event window slated for activate event [pointer]} æKY CurDeactive æT constant æFc SysEqu.p æD CurDeactive = $A68; {[GLOBAL VAR] Pointer to window to receive deactivate event window slated for deactivate event [pointer]} æKY DragHook æT constant æFc SysEqu.p æD DragHook = $9F6; {[GLOBAL VAR] Address of procedure to execute during TrackGoAway, DragWindow, GrowWindow, DragGrayRgn, TrackControl, and DragControl user hook during dragging [pointer]} æKY DeskPattern æT constant æFc SysEqu.p æD DeskPattern = $A3C; {[GLOBAL VAR] Pattern with which desktop is painted (8 bytes) desk pattern [8 bytes]} æKY DeskHook æT constant æFc SysEqu.p æD DeskHook = $A6C; {[GLOBAL VAR] Address of procedure for painting desktop or responding to clicks on desktop hook for painting the desk [pointer]} æKY GhostWindow æT constant æFc SysEqu.p æD GhostWindow = $A84; {[GLOBAL VAR] Pointer to window never to be considered frontmost window hidden from FrontWindow [pointer]} æKY TEDoText æT constant æFc SysEqu.p æD TEDoText = $A70; {[GLOBAL VAR] Address of TextEdit multi-purpose routine textEdit doText proc hook [pointer]} æKY TERecal æT constant æFc SysEqu.p æD TERecal = $A74; {[GLOBAL VAR] Address of routine to recalculate line starts for TextEdit textEdit recalText proc hook [pointer]} æKY TEScrpLength æT constant æFc SysEqu.p æD TEScrpLength = $AB0; {[GLOBAL VAR] Size in bytes of TextEdit scrap (long) textEdit Scrap Length [word]} æKY TEScrpHandle æT constant æFc SysEqu.p æD TEScrpHandle = $AB4; {[GLOBAL VAR] Handle to TextEdit scrap textEdit Scrap [handle]} æKY TEWdBreak æT constant æFc SysEqu.p æD TEWdBreak = $AF6; {[GLOBAL VAR] default word break routine [pointer]} æKY WordRedraw æT constant æFc SysEqu.p æD WordRedraw = $BA5; {[GLOBAL VAR] (byte) - used by TextEdit RecalDraw} æKY TESysJust æT constant æFc SysEqu.p æD TESysJust = $BAC; {[GLOBAL VAR] (word) system justification (intl. textEdit)} æKY TopMapHndl æT constant æFc SysEqu.p æD TopMapHndl = $A50; {[GLOBAL VAR] Handle to resource map of most recently opened resource file topmost map in list [handle]} æKY SysMapHndl æT constant æFc SysEqu.p æD SysMapHndl = $A54; {[GLOBAL VAR] Handle to map of system resource file system map [handle]} æKY SysMap æT constant æFc SysEqu.p æD SysMap = $A58; {[GLOBAL VAR] Reference number of system resource file (word) reference number of system map [word]} æKY CurMap æT constant æFc SysEqu.p æD CurMap = $A5A; {[GLOBAL VAR] Reference number of current resource file (word) reference number of current map [word]} æKY ResReadOnly æT constant æFc SysEqu.p æD ResReadOnly = $A5C; {[GLOBAL VAR] Read only flag [word]} æKY ResLoad æT constant æFc SysEqu.p æD ResLoad = $A5E; {[GLOBAL VAR] Current SetResLoad state (word) Auto-load feature [word]} æKY ResErr æT constant æFc SysEqu.p æD ResErr = $A60; {[GLOBAL VAR] Current value of ResError (word) Resource error code [word]} æKY ResErrProc æT constant æFc SysEqu.p æD ResErrProc = $AF2; {[GLOBAL VAR] Address of resource error procedure Resource error procedure [pointer]} æKY SysResName æT constant æFc SysEqu.p æD SysResName = $AD8; {[GLOBAL VAR] Name of system resource file (length byte followed by up to 19 characters) Name of system resource file [STRING[19]]} æKY RomMapInsert æT constant æFc SysEqu.p æD RomMapInsert = $B9E; {[GLOBAL VAR] (byte) determines if we should link in map} æKY TmpResLoad æT constant æFc SysEqu.p æD TmpResLoad = $B9F; {[GLOBAL VAR] second byte is temporary ResLoad value.} æKY MBarHeight æT constant æFc SysEqu.p æD MBarHeight = $BAA; {[GLOBAL VAR] height of the menu bar} æKY CommToolboxGlobals æT constant æFc SysEqu.p æD CommToolboxGlobals = $0BB4; {[GLOBAL VAR] pointer to CommToolbox globals } æKY TextEdit.p æKL GetStylHandle GetStylScrap SetClikLoop SetStylHandle SetStylScrap SetWordBreak TEActivate TEAutoView TECalText TEClick TEContinuousStyle TECopy TECustomHook TECut TEDeactivate TEDelete TEDispose TEFeatureFlag TEFromScrap TEGetHeight TEGetOffset TEGetPoint TEGetScrapLen TEGetStyle TEGetText TEIdle TEInit TEInsert TEKey TENew TENumStyles TEPaste TEPinScroll TEReplaceStyle TEScrapHandle TEScroll TESelView TESetJust TESetScrapLen TESetSelect TESetStyle TESetText TEStylInsert TEStylNew TEStylPaste TEToScrap TEUpdate TextBox addSize addSizeBit Chars CharsHandle CharsPtr clrBit doAll doColor doFace doFont doSize doToggle DRAWHook EOLHook faceBit fontBit HITTESTHook intDrawHook intEOLHook intHitTestHook intNWidthHook intTextWidthHook intWidthHook LHElement LHHandle LHPtr LHTable NullStHandle NullStPtr NullStRec nWIDTHHook ScrpSTElement ScrpSTTable sizeBit STElement STHandle STPtr StScrpHandle StScrpPtr StScrpRec StyleRun TEBitClear TEBitSet TEBitTest teCenter teFAutoScr teFInlineInput teFlushDefault teFlushLeft teFlushRight teForceLeft teFOutlineHilite teFromFind teFromRecal teFTextBuffering teFUseTextServices TEHandle TEIntHook teJustCenter teJustLeft teJustRight TEPtr TERec TEStyleHandle TEStylePtr TEStyleRec TEStyleTable teWordDrag teWordSelect TextStyle TextStyleHandle TextStylePtr TextWidthHook toglBit WIDTHHook æKY teJustLeft æT constant æFc TextEdit.p æD teJustLeft = 0; æKY teJustCenter æT constant æFc TextEdit.p æD teJustCenter = 1; æKY teJustRight æT constant æFc TextEdit.p æD teJustRight = -1; æKY teForceLeft æT constant æFc TextEdit.p æD teForceLeft = -2; æKY teFlushDefault æT constant æFc TextEdit.p æD teFlushDefault = 0; {flush according to the line direction } æKY teCenter æT constant æFc TextEdit.p æD teCenter = 1; {center justify } æKY teFlushRight æT constant æFc TextEdit.p æD teFlushRight = -1; {flush right for all scripts } æKY teFlushLeft æT constant æFc TextEdit.p æD teFlushLeft = -2; {flush left for all scripts } æKY fontBit æT constant æFc TextEdit.p æD fontBit = 0; {set font} æKY faceBit æT constant æFc TextEdit.p æD faceBit = 1; {set face} æKY sizeBit æT constant æFc TextEdit.p æD sizeBit = 2; {set size} æKY clrBit æT constant æFc TextEdit.p æD clrBit = 3; {set color} æKY addSizeBit æT constant æFc TextEdit.p æD addSizeBit = 4; {add size mode} æKY toglBit æT constant æFc TextEdit.p æD toglBit = 5; {set faces in toggle mode} æKY doFont æT constant æFc TextEdit.p æD doFont = 1; { set font (family) number} æKY doFace æT constant æFc TextEdit.p æD doFace = 2; {set character style} æKY doSize æT constant æFc TextEdit.p æD doSize = 4; {set type size} æKY doColor æT constant æFc TextEdit.p æD doColor = 8; {set color} æKY doAll æT constant æFc TextEdit.p æD doAll = 15; {set all attributes} æKY addSize æT constant æFc TextEdit.p æD addSize = 16; {adjust type size} æKY doToggle æT constant æFc TextEdit.p æD doToggle = 32; {toggle mode for TESetStyle & TEContinuousStyle} æKY EOLHook æT constant æFc TextEdit.p æD EOLHook = 0; {[ProcPtr] TEEOLHook} æKY DRAWHook æT constant æFc TextEdit.p æD DRAWHook = 4; {[ProcPtr] TEWidthHook} æKY WIDTHHook æT constant æFc TextEdit.p æD WIDTHHook = 8; {[ProcPtr] TEDrawHook} æKY HITTESTHook æT constant æFc TextEdit.p æD HITTESTHook = 12; {[ProcPtr] TEHitTestHook} æKY nWIDTHHook æT constant æFc TextEdit.p æD nWIDTHHook = 24; {[ProcPtr] nTEWidthHook} æKY TextWidthHook æT constant æFc TextEdit.p æD TextWidthHook = 28; {[ProcPtr] TETextWidthHook} æKY intEOLHook æT constant æFc TextEdit.p æD intEOLHook = 0; {TEIntHook value} æKY intDrawHook æT constant æFc TextEdit.p æD intDrawHook = 1; {TEIntHook value} æKY intWidthHook æT constant æFc TextEdit.p æD intWidthHook = 2; {TEIntHook value} æKY intHitTestHook æT constant æFc TextEdit.p æD intHitTestHook = 3; {TEIntHook value} æKY intNWidthHook æT constant æFc TextEdit.p æD intNWidthHook = 6; {TEIntHook value for new version of WidthHook} æKY intTextWidthHook æT constant æFc TextEdit.p æD intTextWidthHook = 7; {TEIntHook value for new TextWidthHook} æKY teFAutoScr æT constant æFc TextEdit.p æD teFAutoScr = 0; {00000001b} æKY teFTextBuffering æT constant æFc TextEdit.p æD teFTextBuffering = 1; {00000010b} æKY teFOutlineHilite æT constant æFc TextEdit.p æD teFOutlineHilite = 2; {00000100b} æKY teFInlineInput æT constant æFc TextEdit.p æD teFInlineInput = 3; {00001000b} æKY teFUseTextServices æT constant æFc TextEdit.p æD teFUseTextServices = 4; {00010000b} æKY TEBitClear æT constant æFc TextEdit.p æD TEBitClear = 0; æKY TEBitSet æT constant æFc TextEdit.p æD TEBitSet = 1; {set the selector bit} æKY TEBitTest æT constant æFc TextEdit.p æD TEBitTest = -1; {no change; just return the current setting} æKY teWordSelect æT constant æFc TextEdit.p æD teWordSelect = 4; {clickExpand to select word} æKY teWordDrag æT constant æFc TextEdit.p æD teWordDrag = 8; {clickExpand to drag new word} æKY teFromFind æT constant æFc TextEdit.p æD teFromFind = 12; {FindLine called it ($0C)} æKY teFromRecal æT constant æFc TextEdit.p æD teFromRecal = 16; {RecalLines called it ($10)} æKY TERec æT struct æFc TextEdit.p æD TEPtr = ^TERec; TEHandle = ^TEPtr; TERec = RECORD destRect: Rect; viewRect: Rect; selRect: Rect; lineHeight: INTEGER; fontAscent: INTEGER; selPoint: Point; selStart: INTEGER; selEnd: INTEGER; active: INTEGER; wordBreak: ProcPtr; clikLoop: ProcPtr; clickTime: LONGINT; clickLoc: INTEGER; caretTime: LONGINT; caretState: INTEGER; just: INTEGER; teLength: INTEGER; hText: Handle; recalBack: INTEGER; recalLines: INTEGER; clikStuff: INTEGER; crOnly: INTEGER; txFont: INTEGER; txFace: Style; {txFace is unpacked byte} txMode: INTEGER; txSize: INTEGER; inPort: GrafPtr; highHook: ProcPtr; caretHook: ProcPtr; nLines: INTEGER; lineStarts: ARRAY [0..16000] OF INTEGER; END; æKY Chars æT union æFc TextEdit.p æD CharsPtr = ^Chars; CharsHandle = ^CharsPtr; Chars = PACKED ARRAY [0..32000] OF CHAR; æKY StyleRun æT struct æFc TextEdit.p æD StyleRun = RECORD startChar: INTEGER; {starting character position} styleIndex: INTEGER; {index in style table} END; æKY STElement æT struct æFc TextEdit.p æD STElement = RECORD stCount: INTEGER; {number of runs in this style} stHeight: INTEGER; {line height} stAscent: INTEGER; {font ascent} stFont: INTEGER; {font (family) number} stFace: Style; {character Style} stSize: INTEGER; {size in points} stColor: RGBColor; {absolute (RGB) color} END; æKY TEStyleTable æT union æFc TextEdit.p æD STPtr = ^TEStyleTable; STHandle = ^STPtr; TEStyleTable = ARRAY [0..1776] OF STElement; æKY LHElement æT struct æFc TextEdit.p æD LHElement = RECORD lhHeight: INTEGER; {maximum height in line} lhAscent: INTEGER; {maximum ascent in line} END; æKY LHTable æT union æFc TextEdit.p æD LHPtr = ^LHTable; LHHandle = ^LHPtr; LHTable = ARRAY [0..8000] OF LHElement; æKY ScrpSTElement æT struct æFc TextEdit.p æD ScrpSTElement = RECORD scrpStartChar: LONGINT; {starting character position} scrpHeight: INTEGER; {starting character position} scrpAscent: INTEGER; scrpFont: INTEGER; scrpFace: Style; {unpacked byte} scrpSize: INTEGER; scrpColor: RGBColor; END; æKY ScrpSTTable æT union æFc TextEdit.p æD ScrpSTTable = ARRAY[0..1600] OF ScrpSTElement; æKY StScrpRec æT struct æFc TextEdit.p æD StScrpPtr = ^StScrpRec; StScrpHandle = ^StScrpPtr; StScrpRec = RECORD scrpNStyles: INTEGER; {number of styles in scrap} scrpStyleTab: ScrpSTTable; {table of styles for scrap} END; æKY NullStRec æT struct æFc TextEdit.p æD NullStPtr = ^NullStRec; NullStHandle = ^NullStPtr; NullStRec = RECORD teReserved: LONGINT; {reserved for future expansion} nullScrap: StScrpHandle; {handle to scrap style table} END; æKY TEStyleRec æT struct æFc TextEdit.p æD TEStylePtr = ^TEStyleRec; TEStyleHandle = ^TEStylePtr; TEStyleRec = RECORD nRuns: INTEGER; {number of style runs} nStyles: INTEGER; {size of style table} styleTab: STHandle; {handle to style table} lhTab: LHHandle; {handle to line-height table} teRefCon: LONGINT; {reserved for application use} nullStyle: NullStHandle; {Handle to style set at null selection} runs: ARRAY [0..8000] OF StyleRun; {ARRAY [0..8000] OF StyleRun} END; æKY TextStyle æT struct æFc TextEdit.p æD TextStylePtr = ^TextStyle; TextStyleHandle = ^TextStylePtr; TextStyle = RECORD tsFont: INTEGER; {font (family) number} tsFace: Style; {character Style} tsSize: INTEGER; {size in point} tsColor: RGBColor; {absolute (RGB) color} END; æKY TEIntHook æT typedef æFc TextEdit.p æD TEIntHook = INTEGER; æKY TEInit æT Function æFc TextEdit.p æD PROCEDURE TEInit; INLINE $A9CC; æKY TENew æT Function æFc TextEdit.p æD FUNCTION TENew(destRect: Rect;viewRect: Rect): TEHandle; INLINE $A9D2; æKY TEDispose æT Function æFc TextEdit.p æD PROCEDURE TEDispose(hTE: TEHandle); INLINE $A9CD; æKY TESetText æT Function æFc TextEdit.p æD PROCEDURE TESetText(text: Ptr;length: LONGINT;hTE: TEHandle); INLINE $A9CF; æKY TEGetText æT Function æFc TextEdit.p æD FUNCTION TEGetText(hTE: TEHandle): CharsHandle; INLINE $A9CB; æKY TEIdle æT Function æFc TextEdit.p æD PROCEDURE TEIdle(hTE: TEHandle); INLINE $A9DA; æKY TESetSelect æT Function æFc TextEdit.p æD PROCEDURE TESetSelect(selStart: LONGINT;selEnd: LONGINT;hTE: TEHandle); INLINE $A9D1; æKY TEActivate æT Function æFc TextEdit.p æD PROCEDURE TEActivate(hTE: TEHandle); INLINE $A9D8; æKY TEDeactivate æT Function æFc TextEdit.p æD PROCEDURE TEDeactivate(hTE: TEHandle); INLINE $A9D9; æKY TEKey æT Function æFc TextEdit.p æD PROCEDURE TEKey(key: CHAR;hTE: TEHandle); INLINE $A9DC; æKY TECut æT Function æFc TextEdit.p æD PROCEDURE TECut(hTE: TEHandle); INLINE $A9D6; æKY TECopy æT Function æFc TextEdit.p æD PROCEDURE TECopy(hTE: TEHandle); INLINE $A9D5; æKY TEPaste æT Function æFc TextEdit.p æD PROCEDURE TEPaste(hTE: TEHandle); INLINE $A9DB; æKY TEDelete æT Function æFc TextEdit.p æD PROCEDURE TEDelete(hTE: TEHandle); INLINE $A9D7; æKY TEInsert æT Function æFc TextEdit.p æD PROCEDURE TEInsert(text: Ptr;length: LONGINT;hTE: TEHandle); INLINE $A9DE; æKY TESetJust æT Function æFc TextEdit.p æD PROCEDURE TESetJust(just: INTEGER;hTE: TEHandle); INLINE $A9DF; æKY TEUpdate æT Function æFc TextEdit.p æD PROCEDURE TEUpdate(rUpdate: Rect;hTE: TEHandle); INLINE $A9D3; æKY TextBox æT Function æFc TextEdit.p æD PROCEDURE TextBox(text: Ptr;length: LONGINT;box: Rect;just: INTEGER); INLINE $A9CE; æKY TEScroll æT Function æFc TextEdit.p æD PROCEDURE TEScroll(dh: INTEGER;dv: INTEGER;hTE: TEHandle); INLINE $A9DD; æKY TESelView æT Function æFc TextEdit.p æD PROCEDURE TESelView(hTE: TEHandle); INLINE $A811; æKY TEPinScroll æT Function æFc TextEdit.p æD PROCEDURE TEPinScroll(dh: INTEGER;dv: INTEGER;hTE: TEHandle); INLINE $A812; æKY TEAutoView æT Function æFc TextEdit.p æD PROCEDURE TEAutoView(fAuto: BOOLEAN;hTE: TEHandle); INLINE $A813; æKY TEScrapHandle æT Function æFc TextEdit.p æD FUNCTION TEScrapHandle: Handle; INLINE $2EB8,$0AB4; æKY TECalText æT Function æFc TextEdit.p æD PROCEDURE TECalText(hTE: TEHandle); INLINE $A9D0; æKY TEGetOffset æT Function æFc TextEdit.p æD FUNCTION TEGetOffset(pt: Point;hTE: TEHandle): INTEGER; INLINE $A83C; æKY TEGetPoint æT Function æFc TextEdit.p æD FUNCTION TEGetPoint(offset: INTEGER;hTE: TEHandle): Point; INLINE $3F3C,$0008,$A83D; æKY TEClick æT Function æFc TextEdit.p æD PROCEDURE TEClick(pt: Point;fExtend: BOOLEAN;h: TEHandle); INLINE $A9D4; æKY TEStylNew æT Function æFc TextEdit.p æD FUNCTION TEStylNew(destRect: Rect;viewRect: Rect): TEHandle; INLINE $A83E; æKY SetStylHandle æT Function æFc TextEdit.p æD PROCEDURE SetStylHandle(theHandle: TEStyleHandle;hTE: TEHandle); INLINE $3F3C,$0005,$A83D; æKY GetStylHandle æT Function æFc TextEdit.p æD FUNCTION GetStylHandle(hTE: TEHandle): TEStyleHandle; INLINE $3F3C,$0004,$A83D; æKY TEGetStyle æT Function æFc TextEdit.p æD PROCEDURE TEGetStyle(offset: INTEGER;VAR theStyle: TextStyle;VAR lineHeight: INTEGER; VAR fontAscent: INTEGER;hTE: TEHandle); INLINE $3F3C,$0003,$A83D; æKY TEStylPaste æT Function æFc TextEdit.p æD PROCEDURE TEStylPaste(hTE: TEHandle); INLINE $3F3C,$0000,$A83D; æKY TESetStyle æT Function æFc TextEdit.p æD PROCEDURE TESetStyle(mode: INTEGER;newStyle: TextStyle;redraw: BOOLEAN; hTE: TEHandle); INLINE $3F3C,$0001,$A83D; æKY TEReplaceStyle æT Function æFc TextEdit.p æD PROCEDURE TEReplaceStyle(mode: INTEGER;oldStyle: TextStyle;newStyle: TextStyle; redraw: BOOLEAN;hTE: TEHandle); INLINE $3F3C,$0002,$A83D; æKY GetStylScrap æT Function æFc TextEdit.p æD FUNCTION GetStylScrap(hTE: TEHandle): StScrpHandle; INLINE $3F3C,$0006,$A83D; æKY TEStylInsert æT Function æFc TextEdit.p æD PROCEDURE TEStylInsert(text: Ptr;length: LONGINT;hST: StScrpHandle;hTE: TEHandle); INLINE $3F3C,$0007,$A83D; æKY TEGetHeight æT Function æFc TextEdit.p æD FUNCTION TEGetHeight(endLine: LONGINT;startLine: LONGINT;hTE: TEHandle): LONGINT; INLINE $3F3C,$0009,$A83D; æKY TEContinuousStyle æT Function æFc TextEdit.p æD FUNCTION TEContinuousStyle(VAR mode: INTEGER;VAR aStyle: TextStyle;hTE: TEHandle): BOOLEAN; INLINE $3F3C,$000A,$A83D; æKY SetStylScrap æT Function æFc TextEdit.p æD PROCEDURE SetStylScrap(rangeStart: LONGINT;rangeEnd: LONGINT;newStyles: StScrpHandle; redraw: BOOLEAN;hTE: TEHandle); INLINE $3F3C,$000B,$A83D; æKY TECustomHook æT Function æFc TextEdit.p æD PROCEDURE TECustomHook(which: TEIntHook;VAR addr: ProcPtr;hTE: TEHandle); INLINE $3F3C,$000C,$A83D; æKY TENumStyles æT Function æFc TextEdit.p æD FUNCTION TENumStyles(rangeStart: LONGINT;rangeEnd: LONGINT;hTE: TEHandle): LONGINT; INLINE $3F3C,$000D,$A83D; æKY TEFeatureFlag æT Function æFc TextEdit.p æD FUNCTION TEFeatureFlag(feature: INTEGER;action: INTEGER;hTE: TEHandle): INTEGER; INLINE $3F3C,$000E,$A83D; æKY TEGetScrapLen æT Function æFc TextEdit.p æD FUNCTION TEGetScrapLen: LONGINT; æKY TESetScrapLen æT Function æFc TextEdit.p æD PROCEDURE TESetScrapLen(length: LONGINT); æKY TEFromScrap æT Function æFc TextEdit.p æD FUNCTION TEFromScrap: OSErr; æKY TEToScrap æT Function æFc TextEdit.p æD FUNCTION TEToScrap: OSErr; æKY SetClikLoop æT Function æFc TextEdit.p æD PROCEDURE SetClikLoop(clikProc: ProcPtr;hTE: TEHandle); æKY SetWordBreak æT Function æFc TextEdit.p æD PROCEDURE SetWordBreak(wBrkProc: ProcPtr;hTE: TEHandle); æKY Timer.p æKL InsTime InsXTime PrimeTime RmvTime TMTask TMTaskPtr æKY TMTask æT struct æFc Timer.p æD TMTaskPtr = ^TMTask; TMTask = RECORD qLink: QElemPtr; qType: INTEGER; tmAddr: ProcPtr; tmCount: LONGINT; tmWakeUp: LONGINT; tmReserved: LONGINT; END; æKY InsTime æT Function æFc Timer.p æD PROCEDURE InsTime(tmTaskPtr: QElemPtr); INLINE $205F,$A058; æKY InsXTime æT Function æFc Timer.p æD PROCEDURE InsXTime(tmTaskPtr: QElemPtr); INLINE $205F,$A458; æKY PrimeTime æT Function æFc Timer.p æD PROCEDURE PrimeTime(tmTaskPtr: QElemPtr;count: LONGINT); INLINE $201F,$205F,$A05A; æKY RmvTime æT Function æFc Timer.p æD PROCEDURE RmvTime(tmTaskPtr: QElemPtr); INLINE $205F,$A059; æKY ToolUtils.p æKL AngleFromSlope BitAnd BitClr BitNot BitOr BitSet BitShift BitTst BitXor DeltaPoint FixMul FixRatio FixRound GetCursor GetIcon GetIndPattern GetIndString GetPattern GetPicture GetString HiWord LongMul LoWord Munger NewString PackBits PlotIcon ScreenRes SetString ShieldCursor SlopeFromAngle UnpackBits crossCursor iBeamCursor Int64Bit plusCursor sysPatListID watchCursor æKY sysPatListID æT constant æFc ToolUtils.p æD sysPatListID = 0; æKY iBeamCursor æT constant æFc ToolUtils.p æD iBeamCursor = 1; æKY crossCursor æT constant æFc ToolUtils.p æD crossCursor = 2; æKY plusCursor æT constant æFc ToolUtils.p æD plusCursor = 3; æKY watchCursor æT constant æFc ToolUtils.p æD watchCursor = 4; æKY Int64Bit æT struct æFc ToolUtils.p æD Int64Bit = RECORD hiLong: LONGINT; loLong: LONGINT; END; æKY FixRatio æT Function æFc ToolUtils.p æD FUNCTION FixRatio(numer: INTEGER;denom: INTEGER): Fixed; INLINE $A869; æKY FixMul æT Function æFc ToolUtils.p æD FUNCTION FixMul(a: Fixed;b: Fixed): Fixed; INLINE $A868; æKY FixRound æT Function æFc ToolUtils.p æD FUNCTION FixRound(x: Fixed): INTEGER; INLINE $A86C; æKY GetString æT Function æFc ToolUtils.p æD FUNCTION GetString(stringID: INTEGER): StringHandle; INLINE $A9BA; æKY Munger æT Function æFc ToolUtils.p æD FUNCTION Munger(h: Handle;offset: LONGINT;ptr1: Ptr;len1: LONGINT;ptr2: Ptr; len2: LONGINT): LONGINT; INLINE $A9E0; æKY PackBits æT Function æFc ToolUtils.p æD PROCEDURE PackBits(VAR srcPtr: Ptr;VAR dstPtr: Ptr;srcBytes: INTEGER); INLINE $A8CF; æKY UnpackBits æT Function æFc ToolUtils.p æD PROCEDURE UnpackBits(VAR srcPtr: Ptr;VAR dstPtr: Ptr;dstBytes: INTEGER); INLINE $A8D0; æKY BitTst æT Function æFc ToolUtils.p æD FUNCTION BitTst(bytePtr: Ptr;bitNum: LONGINT): BOOLEAN; INLINE $A85D; æKY BitSet æT Function æFc ToolUtils.p æD PROCEDURE BitSet(bytePtr: Ptr;bitNum: LONGINT); INLINE $A85E; æKY BitClr æT Function æFc ToolUtils.p æD PROCEDURE BitClr(bytePtr: Ptr;bitNum: LONGINT); INLINE $A85F; æKY BitAnd æT Function æFc ToolUtils.p æD FUNCTION BitAnd(value1: LONGINT;value2: LONGINT): LONGINT; INLINE $A858; æKY BitOr æT Function æFc ToolUtils.p æD FUNCTION BitOr(value1: LONGINT;value2: LONGINT): LONGINT; INLINE $A85B; æKY BitXor æT Function æFc ToolUtils.p æD FUNCTION BitXor(value1: LONGINT;value2: LONGINT): LONGINT; INLINE $A859; æKY BitNot æT Function æFc ToolUtils.p æD FUNCTION BitNot(value: LONGINT): LONGINT; INLINE $A85A; æKY BitShift æT Function æFc ToolUtils.p æD FUNCTION BitShift(value: LONGINT;count: INTEGER): LONGINT; INLINE $A85C; æKY HiWord æT Function æFc ToolUtils.p æD FUNCTION HiWord(x: LONGINT): INTEGER; INLINE $A86A; æKY LoWord æT Function æFc ToolUtils.p æD FUNCTION LoWord(x: LONGINT): INTEGER; INLINE $A86B; æKY LongMul æT Function æFc ToolUtils.p æD PROCEDURE LongMul(a: LONGINT;b: LONGINT;VAR result: Int64Bit); INLINE $A867; æKY GetIcon æT Function æFc ToolUtils.p æD FUNCTION GetIcon(iconID: INTEGER): Handle; INLINE $A9BB; æKY PlotIcon æT Function æFc ToolUtils.p æD PROCEDURE PlotIcon(theRect: Rect;theIcon: Handle); INLINE $A94B; æKY GetPattern æT Function æFc ToolUtils.p æD FUNCTION GetPattern(patternID: INTEGER): PatHandle; INLINE $A9B8; æKY GetCursor æT Function æFc ToolUtils.p æD FUNCTION GetCursor(cursorID: INTEGER): CursHandle; INLINE $A9B9; æKY GetPicture æT Function æFc ToolUtils.p æD FUNCTION GetPicture(pictureID: INTEGER): PicHandle; INLINE $A9BC; æKY SlopeFromAngle æT Function æFc ToolUtils.p æD FUNCTION SlopeFromAngle(angle: INTEGER): Fixed; INLINE $A8BC; æKY AngleFromSlope æT Function æFc ToolUtils.p æD FUNCTION AngleFromSlope(slope: Fixed): INTEGER; INLINE $A8C4; æKY SetString æT Function æFc ToolUtils.p æD PROCEDURE SetString(theString: StringHandle;strNew: Str255); INLINE $A907; æKY DeltaPoint æT Function æFc ToolUtils.p æD FUNCTION DeltaPoint(ptA: Point;ptB: Point): LONGINT; INLINE $A94F; æKY NewString æT Function æFc ToolUtils.p æD FUNCTION NewString(theString: Str255): StringHandle; INLINE $A906; æKY ShieldCursor æT Function æFc ToolUtils.p æD PROCEDURE ShieldCursor(shieldRect: Rect;offsetPt: Point); INLINE $A855; æKY GetIndString æT Function æFc ToolUtils.p æD PROCEDURE GetIndString(VAR theString: Str255;strListID: INTEGER;index: INTEGER); æKY ScreenRes æT Function æFc ToolUtils.p æD PROCEDURE ScreenRes(VAR scrnHRes: INTEGER;VAR scrnVRes: INTEGER); INLINE $225F,$32B8,$0102,$225F,$32B8,$0104; æKY GetIndPattern æT Function æFc ToolUtils.p æD PROCEDURE GetIndPattern(VAR thePat: Pattern;patternListID: INTEGER;index: INTEGER); æKY Types.p æKL Debugger DebugStr SysBreak SysBreakFunc SysBreakStr Byte Fixed FixedPtr Fract FractPtr h Handle IntegerPtr LangCode LongIntPtr noErr OSErr OSType OSTypePtr Point PointPtr ProcPtr Ptr Rect RectPtr ResType ResTypePtr ScriptCode SignedByte Str15 Str255 Str27 Str31 Str32 Str63 StringHandle StringPtr v VHSelect æKY noErr æT constant æFc Types.p æD noErr = 0; {All is well} æKY Byte æT typedef æFc Types.p æD Byte = 0..255; { unsigned byte for fontmgr } æKY SignedByte æT typedef æFc Types.p æD SignedByte = - 128..127; { any byte in memory } æKY Ptr æT typedef æFc Types.p æD Ptr = ^SignedByte; { blind pointer } æKY Handle æT typedef æFc Types.p æD Handle = ^Ptr; { pointer to a master pointer } æKY IntegerPtr æT typedef æFc Types.p æD IntegerPtr = ^INTEGER; æKY LongIntPtr æT typedef æFc Types.p æD LongIntPtr = ^LONGINT; æKY Fixed æT typedef æFc Types.p æD Fixed = LONGINT; { fixed point arithmatic type } æKY FixedPtr æT typedef æFc Types.p æD FixedPtr = ^Fixed; æKY Fract æT typedef æFc Types.p æD Fract = LONGINT; æKY FractPtr æT typedef æFc Types.p æD FractPtr = ^Fract; æKY VHSelect v h æT enum æFc Types.p æD VHSelect = (v,h); æKY ProcPtr æT typedef æFc Types.p æD ProcPtr = Ptr; { pointer to a procedure } æKY Str255 æT union æFc Types.p æD StringPtr = ^Str255; StringHandle = ^StringPtr; Str255 = String[255]; { maximum string size } æKY Str63 æT union æFc Types.p æD Str63 = String[63]; æKY Str32 æT union æFc Types.p æD Str32 = String[32]; æKY Str31 æT union æFc Types.p æD Str31 = String[31]; æKY Str27 æT union æFc Types.p æD Str27 = String[27]; æKY Str15 æT union æFc Types.p æD Str15 = String[15]; æKY OSErr æT typedef æFc Types.p æD OSErr = INTEGER; { error code } æKY OSType æT typedef æFc Types.p æD OSType = PACKED ARRAY [1..4] OF CHAR; æKY OSTypePtr æT typedef æFc Types.p æD OSTypePtr = ^OSType; æKY ResType æT typedef æFc Types.p æD ResType = PACKED ARRAY [1..4] OF CHAR; æKY ResTypePtr æT typedef æFc Types.p æD ResTypePtr = ^ResType; æKY ScriptCode æT typedef æFc Types.p æD ScriptCode = Integer; æKY LangCode æT typedef æFc Types.p æD LangCode = Integer; æKY Point æT struct æFc Types.p æD PointPtr = ^Point; Point = RECORD CASE INTEGER OF 1: (v: INTEGER; {vertical coordinate} h: INTEGER); {horizontal coordinate} 2: (vh: ARRAY[VHSelect] OF INTEGER); END; æKY Rect æT struct æFc Types.p æD RectPtr = ^Rect; Rect = RECORD CASE INTEGER OF 1: (top: INTEGER; left: INTEGER; bottom: INTEGER; right: INTEGER); 2: (topLeft: Point; botRight: Point); END; æKY Debugger æT Function æFc Types.p æD PROCEDURE Debugger; INLINE $A9FF; æKY DebugStr æT Function æFc Types.p æD PROCEDURE DebugStr(aStr: Str255); INLINE $ABFF; æKY SysBreak æT Function æFc Types.p æD PROCEDURE SysBreak; INLINE $303C,$FE16,$A9C9; æKY SysBreakStr æT Function æFc Types.p æD PROCEDURE SysBreakStr(debugStr: Str255); INLINE $303C,$FE15,$A9C9; æKY SysBreakFunc æT Function æFc Types.p æD PROCEDURE SysBreakFunc(debugFunc: Str255); INLINE $303C,$FE14,$A9C9; æKY Video.p æKL cscDirectSetEntries cscGetBaseAddr cscGetDefaultMode cscGetEntries cscGetGamma cscGetGray cscGetInterrupt cscGetMode cscGetPageBase cscGetPageCnt cscGetPages cscGrayPage cscGrayScreen cscKillIO cscReset cscSetDefaultMode cscSetEntries cscSetGamma cscSetGray cscSetInterrupt cscSetMode eightBitMode fifthVidMode firstVidMode fourBitMode fourthVidMode mBaseOffset mBounds mCmpCount mCmpSize mDevType mHRes mPageCnt mPixelSize mPixelType mPlaneBytes mRowBytes mTable mVersion mVertRefRate mVidParams mVRes oneBitMode secondVidMode sixteenBitMode sixthVidMode spGammaDir spVidNamesDir thirdVidMode thirtyTwoBitMode twoBitMode VDEntRecPtr VDEntryRecord VDGammaRecord VDGamRecPtr VDGrayPtr VDGrayRecord VDPageInfo VDPgInfoPtr VDSetEntryPtr VDSetEntryRecord VDSettings VDSettingsPtr VDSizeInfo VDSzInfoPtr VPBlock VPBlockPtr æKY mBaseOffset æT constant æFc Video.p æD mBaseOffset = 1; {Id of mBaseOffset.} æKY mRowBytes æT constant æFc Video.p æD mRowBytes = 2; {Video sResource parameter Id's } æKY mBounds æT constant æFc Video.p æD mBounds = 3; {Video sResource parameter Id's } æKY mVersion æT constant æFc Video.p æD mVersion = 4; {Video sResource parameter Id's } æKY mHRes æT constant æFc Video.p æD mHRes = 5; {Video sResource parameter Id's } æKY mVRes æT constant æFc Video.p æD mVRes = 6; {Video sResource parameter Id's } æKY mPixelType æT constant æFc Video.p æD mPixelType = 7; {Video sResource parameter Id's } æKY mPixelSize æT constant æFc Video.p æD mPixelSize = 8; {Video sResource parameter Id's } æKY mCmpCount æT constant æFc Video.p æD mCmpCount = 9; {Video sResource parameter Id's } æKY mCmpSize æT constant æFc Video.p æD mCmpSize = 10; {Video sResource parameter Id's } æKY mPlaneBytes æT constant æFc Video.p æD mPlaneBytes = 11; {Video sResource parameter Id's } æKY mVertRefRate æT constant æFc Video.p æD mVertRefRate = 14; {Video sResource parameter Id's } æKY mVidParams æT constant æFc Video.p æD mVidParams = 1; {Video parameter block id.} æKY mTable æT constant æFc Video.p æD mTable = 2; {Offset to the table.} æKY mPageCnt æT constant æFc Video.p æD mPageCnt = 3; {Number of pages} æKY mDevType æT constant æFc Video.p æD mDevType = 4; {Device Type} æKY oneBitMode æT constant æFc Video.p æD oneBitMode = 128; {Id of OneBitMode Parameter list.} æKY twoBitMode æT constant æFc Video.p æD twoBitMode = 129; {Id of TwoBitMode Parameter list.} æKY fourBitMode æT constant æFc Video.p æD fourBitMode = 130; {Id of FourBitMode Parameter list.} æKY eightBitMode æT constant æFc Video.p æD eightBitMode = 131; {Id of EightBitMode Parameter list.} æKY sixteenBitMode æT constant æFc Video.p æD sixteenBitMode = 132; {Id of SixteenBitMode Parameter list.} æKY thirtyTwoBitMode æT constant æFc Video.p æD thirtyTwoBitMode = 133; {Id of ThirtyTwoBitMode Parameter list.} æKY firstVidMode æT constant æFc Video.p æD firstVidMode = 128; {The new, better way to do the above. } æKY secondVidMode æT constant æFc Video.p æD secondVidMode = 129; { QuickDraw only supports six video } æKY thirdVidMode æT constant æFc Video.p æD thirdVidMode = 130; { at this time. } æKY fourthVidMode æT constant æFc Video.p æD fourthVidMode = 131; æKY fifthVidMode æT constant æFc Video.p æD fifthVidMode = 132; æKY sixthVidMode æT constant æFc Video.p æD sixthVidMode = 133; æKY spGammaDir æT constant æFc Video.p æD spGammaDir = 64; æKY spVidNamesDir æT constant æFc Video.p æD spVidNamesDir = 65; æKY cscReset æT constant æFc Video.p æD cscReset = 0; æKY cscKillIO æT constant æFc Video.p æD cscKillIO = 1; æKY cscSetMode æT constant æFc Video.p æD cscSetMode = 2; æKY cscSetEntries æT constant æFc Video.p æD cscSetEntries = 3; æKY cscSetGamma æT constant æFc Video.p æD cscSetGamma = 4; æKY cscGrayPage æT constant æFc Video.p æD cscGrayPage = 5; æKY cscGrayScreen æT constant æFc Video.p æD cscGrayScreen = 5; æKY cscSetGray æT constant æFc Video.p æD cscSetGray = 6; æKY cscSetInterrupt æT constant æFc Video.p æD cscSetInterrupt = 7; æKY cscDirectSetEntries æT constant æFc Video.p æD cscDirectSetEntries = 8; æKY cscSetDefaultMode æT constant æFc Video.p æD cscSetDefaultMode = 9; æKY cscGetMode æT constant æFc Video.p æD cscGetMode = 2; æKY cscGetEntries æT constant æFc Video.p æD cscGetEntries = 3; æKY cscGetPageCnt æT constant æFc Video.p æD cscGetPageCnt = 4; æKY cscGetPages æT constant æFc Video.p æD cscGetPages = 4; { This is what C&D 2 calls it. } æKY cscGetPageBase æT constant æFc Video.p æD cscGetPageBase = 5; æKY cscGetBaseAddr æT constant æFc Video.p æD cscGetBaseAddr = 5; { This is what C&D 2 calls it. } æKY cscGetGray æT constant æFc Video.p æD cscGetGray = 6; æKY cscGetInterrupt æT constant æFc Video.p æD cscGetInterrupt = 7; æKY cscGetGamma æT constant æFc Video.p æD cscGetGamma = 8; æKY cscGetDefaultMode æT constant æFc Video.p æD cscGetDefaultMode = 9; æKY VPBlock æT struct æFc Video.p æD VPBlockPtr = ^VPBlock; VPBlock = RECORD vpBaseOffset: LONGINT; {Offset to page zero of video RAM (From minorBaseOS).} vpRowBytes: INTEGER; {Width of each row of video memory.} vpBounds: Rect; {BoundsRect for the video display (gives dimensions).} vpVersion: INTEGER; {PixelMap version number.} vpPackType: INTEGER; vpPackSize: LONGINT; vpHRes: LONGINT; {Horizontal resolution of the device (pixels per inch).} vpVRes: LONGINT; {Vertical resolution of the device (pixels per inch).} vpPixelType: INTEGER; {Defines the pixel type.} vpPixelSize: INTEGER; {Number of bits in pixel.} vpCmpCount: INTEGER; {Number of components in pixel.} vpCmpSize: INTEGER; {Number of bits per component} vpPlaneBytes: LONGINT; {Offset from one plane to the next.} END; æKY VDEntryRecord æT struct æFc Video.p æD VDEntRecPtr = ^VDEntryRecord; VDEntryRecord = RECORD csTable: Ptr; {(long) pointer to color table entry=value, r,g,b:INTEGER} END; æKY VDGrayRecord æT struct æFc Video.p æD VDGrayPtr = ^VDGrayRecord; VDGrayRecord = RECORD csMode: BOOLEAN; {Same as GDDevType value (0=mono, 1=color)} END; æKY VDSetEntryRecord æT struct æFc Video.p æD VDSetEntryPtr = ^VDSetEntryRecord; VDSetEntryRecord = RECORD csTable: ^ColorSpec; {Pointer to an array of color specs} csStart: INTEGER; {Which spec in array to start with, or -1} csCount: INTEGER; {Number of color spec entries to set} END; æKY VDGammaRecord æT struct æFc Video.p æD VDGamRecPtr = ^VDGammaRecord; VDGammaRecord = RECORD csGTable: Ptr; {pointer to gamma table} END; æKY VDPageInfo æT struct æFc Video.p æD VDPgInfoPtr = ^VDPageInfo; VDPageInfo = RECORD csMode: INTEGER; {(word) mode within device} csData: LONGINT; {(long) data supplied by driver} csPage: INTEGER; {(word) page to switch in} csBaseAddr: Ptr; {(long) base address of page} END; æKY VDSizeInfo æT struct æFc Video.p æD VDSzInfoPtr = ^VDSizeInfo; VDSizeInfo = RECORD csHSize: INTEGER; {(word) desired/returned h size} csHPos: INTEGER; {(word) desired/returned h position} csVSize: INTEGER; {(word) desired/returned v size} csVPos: INTEGER; {(word) desired/returned v position} END; æKY VDSettings æT struct æFc Video.p æD VDSettingsPtr = ^VDSettings; VDSettings = RECORD csParamCnt: INTEGER; {(word) number of params} csBrightMax: INTEGER; {(word) max brightness} csBrightDef: INTEGER; {(word) default brightness} csBrightVal: INTEGER; {(word) current brightness} csCntrstMax: INTEGER; {(word) max contrast} csCntrstDef: INTEGER; {(word) default contrast} csCntrstVal: INTEGER; {(word) current contrast} csTintMax: INTEGER; {(word) max tint} csTintDef: INTEGER; {(word) default tint} csTintVal: INTEGER; {(word) current tint} csHueMax: INTEGER; {(word) max hue} csHueDef: INTEGER; {(word) default hue} csHueVal: INTEGER; {(word) current hue} csHorizDef: INTEGER; {(word) default horizontal} csHorizVal: INTEGER; {(word) current horizontal} csHorizMax: INTEGER; {(word) max horizontal} csVertDef: INTEGER; {(word) default vertical} csVertVal: INTEGER; {(word) current vertical} csVertMax: INTEGER; {(word) max vertical} END; æKY Windows.p æKL BeginUpdate BringToFront CalcVis CalcVisBehind CheckUpdate ClipAbove CloseWindow DisposeWindow DragGrayRgn DragWindow DrawGrowIcon DrawNew EndUpdate FindWindow FrontWindow GetAuxWin GetCWMgrPort GetGrayRgn GetNewCWindow GetNewWindow GetWindowPic GetWMgrPort GetWRefCon GetWTitle GetWVariant GrowWindow HideWindow HiliteWindow InitWindows InvalRect InvalRgn MoveWindow NewCWindow NewWindow PaintBehind PaintOne PinRect SaveOld SelectWindow SendBehind SetDeskCPat SetWinColor SetWindowPic SetWRefCon SetWTitle ShowHide ShowWindow SizeWindow TrackBox TrackGoAway ValidRect ValidRgn ZoomWindow altDBoxProc AuxWinHandle AuxWinPtr AuxWinRec CWindowPeek CWindowRecord dBoxProc deskPatID dialogKind documentProc inContent inDesk inDrag inGoAway inGrow inMenuBar inSysWindow inZoomIn inZoomOut movableDBoxProc noGrowDocProc plainDBox rDocProc userKind wCalcRgns wContentColor WCTabHandle WCTabPtr wDispose wDraw wDrawGIcon wFrameColor wGrow wHiliteColor wHit wInContent WinCTab WindowPeek WindowRecord wInDrag wInGoAway wInGrow wInZoomIn wInZoomOut wNew wNoHit WStateData WStateDataHandle WStateDataPtr wTextColor wTitleBarColor zoomDocProc zoomNoGrow æKY documentProc æT constant æFc Windows.p æD documentProc = 0; æKY dBoxProc æT constant æFc Windows.p æD dBoxProc = 1; æKY plainDBox æT constant æFc Windows.p æD plainDBox = 2; æKY altDBoxProc æT constant æFc Windows.p æD altDBoxProc = 3; æKY noGrowDocProc æT constant æFc Windows.p æD noGrowDocProc = 4; æKY movableDBoxProc æT constant æFc Windows.p æD movableDBoxProc = 5; æKY zoomDocProc æT constant æFc Windows.p æD zoomDocProc = 8; æKY zoomNoGrow æT constant æFc Windows.p æD zoomNoGrow = 12; æKY rDocProc æT constant æFc Windows.p æD rDocProc = 16; æKY dialogKind æT constant æFc Windows.p æD dialogKind = 2; æKY userKind æT constant æFc Windows.p æD userKind = 8; æKY inDesk æT constant æFc Windows.p æD inDesk = 0; æKY inMenuBar æT constant æFc Windows.p æD inMenuBar = 1; æKY inSysWindow æT constant æFc Windows.p æD inSysWindow = 2; æKY inContent æT constant æFc Windows.p æD inContent = 3; æKY inDrag æT constant æFc Windows.p æD inDrag = 4; æKY inGrow æT constant æFc Windows.p æD inGrow = 5; æKY inGoAway æT constant æFc Windows.p æD inGoAway = 6; æKY inZoomIn æT constant æFc Windows.p æD inZoomIn = 7; æKY inZoomOut æT constant æFc Windows.p æD inZoomOut = 8; æKY wDraw æT constant æFc Windows.p æD wDraw = 0; æKY wHit æT constant æFc Windows.p æD wHit = 1; æKY wCalcRgns æT constant æFc Windows.p æD wCalcRgns = 2; æKY wNew æT constant æFc Windows.p æD wNew = 3; æKY wDispose æT constant æFc Windows.p æD wDispose = 4; æKY wGrow æT constant æFc Windows.p æD wGrow = 5; æKY wDrawGIcon æT constant æFc Windows.p æD wDrawGIcon = 6; æKY wNoHit æT constant æFc Windows.p æD wNoHit = 0; æKY wInContent æT constant æFc Windows.p æD wInContent = 1; æKY wInDrag æT constant æFc Windows.p æD wInDrag = 2; æKY wInGrow æT constant æFc Windows.p æD wInGrow = 3; æKY wInGoAway æT constant æFc Windows.p æD wInGoAway = 4; æKY wInZoomIn æT constant æFc Windows.p æD wInZoomIn = 5; æKY wInZoomOut æT constant æFc Windows.p æD wInZoomOut = 6; æKY deskPatID æT constant æFc Windows.p æD deskPatID = 16; æKY wContentColor æT constant æFc Windows.p æD wContentColor = 0; æKY wFrameColor æT constant æFc Windows.p æD wFrameColor = 1; æKY wTextColor æT constant æFc Windows.p æD wTextColor = 2; æKY wHiliteColor æT constant æFc Windows.p æD wHiliteColor = 3; æKY wTitleBarColor æT constant æFc Windows.p æD wTitleBarColor = 4; æKY WindowRecord æT struct æFc Windows.p æD WindowPeek = ^WindowRecord; WindowRecord = RECORD port: GrafPort; windowKind: INTEGER; visible: BOOLEAN; hilited: BOOLEAN; goAwayFlag: BOOLEAN; spareFlag: BOOLEAN; strucRgn: RgnHandle; contRgn: RgnHandle; updateRgn: RgnHandle; windowDefProc: Handle; dataHandle: Handle; titleHandle: StringHandle; titleWidth: INTEGER; controlList: ControlHandle; nextWindow: WindowPeek; windowPic: PicHandle; refCon: LONGINT; END; æKY CWindowRecord æT struct æFc Windows.p æD CWindowPeek = ^CWindowRecord; CWindowRecord = RECORD port: CGrafPort; windowKind: INTEGER; visible: BOOLEAN; hilited: BOOLEAN; goAwayFlag: BOOLEAN; spareFlag: BOOLEAN; strucRgn: RgnHandle; contRgn: RgnHandle; updateRgn: RgnHandle; windowDefProc: Handle; dataHandle: Handle; titleHandle: StringHandle; titleWidth: INTEGER; controlList: ControlHandle; nextWindow: CWindowPeek; windowPic: PicHandle; refCon: LONGINT; END; æKY WStateData æT struct æFc Windows.p æD WStateDataPtr = ^WStateData; WStateDataHandle = ^WStateDataPtr; WStateData = RECORD userState: Rect; {user state} stdState: Rect; {standard state} END; æKY AuxWinRec æT struct æFc Windows.p æD AuxWinPtr = ^AuxWinRec; AuxWinHandle = ^AuxWinPtr; AuxWinRec = RECORD awNext: AuxWinHandle; {handle to next AuxWinRec} awOwner: WindowPtr; {ptr to window } awCTable: CTabHandle; {color table for this window} dialogCItem: Handle; {handle to dialog manager structures} awFlags: LONGINT; {reserved for expansion} awReserved: CTabHandle; {reserved for expansion} awRefCon: LONGINT; {user Constant} END; æKY WinCTab æT struct æFc Windows.p æD WCTabPtr = ^WinCTab; WCTabHandle = ^WCTabPtr; WinCTab = RECORD wCSeed: LONGINT; {reserved} wCReserved: INTEGER; {reserved} ctSize: INTEGER; {usually 4 for windows} ctTable: ARRAY [0..4] OF ColorSpec; END; æKY InitWindows æT Function æFc Windows.p æD PROCEDURE InitWindows; INLINE $A912; æKY GetWMgrPort æT Function æFc Windows.p æD PROCEDURE GetWMgrPort(VAR wPort: GrafPtr); INLINE $A910; æKY NewWindow æT Function æFc Windows.p æD FUNCTION NewWindow(wStorage: Ptr;boundsRect: Rect;title: Str255;visible: BOOLEAN; theProc: INTEGER;behind: WindowPtr;goAwayFlag: BOOLEAN;refCon: LONGINT): WindowPtr; INLINE $A913; æKY GetNewWindow æT Function æFc Windows.p æD FUNCTION GetNewWindow(windowID: INTEGER;wStorage: Ptr;behind: WindowPtr): WindowPtr; INLINE $A9BD; æKY CloseWindow æT Function æFc Windows.p æD PROCEDURE CloseWindow(theWindow: WindowPtr); INLINE $A92D; æKY DisposeWindow æT Function æFc Windows.p æD PROCEDURE DisposeWindow(theWindow: WindowPtr); INLINE $A914; æKY GetWTitle æT Function æFc Windows.p æD PROCEDURE GetWTitle(theWindow: WindowPtr;VAR title: Str255); INLINE $A919; æKY SelectWindow æT Function æFc Windows.p æD PROCEDURE SelectWindow(theWindow: WindowPtr); INLINE $A91F; æKY HideWindow æT Function æFc Windows.p æD PROCEDURE HideWindow(theWindow: WindowPtr); INLINE $A916; æKY ShowWindow æT Function æFc Windows.p æD PROCEDURE ShowWindow(theWindow: WindowPtr); INLINE $A915; æKY ShowHide æT Function æFc Windows.p æD PROCEDURE ShowHide(theWindow: WindowPtr;showFlag: BOOLEAN); INLINE $A908; æKY HiliteWindow æT Function æFc Windows.p æD PROCEDURE HiliteWindow(theWindow: WindowPtr;fHilite: BOOLEAN); INLINE $A91C; æKY BringToFront æT Function æFc Windows.p æD PROCEDURE BringToFront(theWindow: WindowPtr); INLINE $A920; æKY SendBehind æT Function æFc Windows.p æD PROCEDURE SendBehind(theWindow: WindowPtr;behindWindow: WindowPtr); INLINE $A921; æKY FrontWindow æT Function æFc Windows.p æD FUNCTION FrontWindow: WindowPtr; INLINE $A924; æKY DrawGrowIcon æT Function æFc Windows.p æD PROCEDURE DrawGrowIcon(theWindow: WindowPtr); INLINE $A904; æKY MoveWindow æT Function æFc Windows.p æD PROCEDURE MoveWindow(theWindow: WindowPtr;hGlobal: INTEGER;vGlobal: INTEGER; front: BOOLEAN); INLINE $A91B; æKY SizeWindow æT Function æFc Windows.p æD PROCEDURE SizeWindow(theWindow: WindowPtr;w: INTEGER;h: INTEGER;fUpdate: BOOLEAN); INLINE $A91D; æKY ZoomWindow æT Function æFc Windows.p æD PROCEDURE ZoomWindow(theWindow: WindowPtr;partCode: INTEGER;front: BOOLEAN); INLINE $A83A; æKY InvalRect æT Function æFc Windows.p æD PROCEDURE InvalRect(badRect: Rect); INLINE $A928; æKY InvalRgn æT Function æFc Windows.p æD PROCEDURE InvalRgn(badRgn: RgnHandle); INLINE $A927; æKY ValidRect æT Function æFc Windows.p æD PROCEDURE ValidRect(goodRect: Rect); INLINE $A92A; æKY ValidRgn æT Function æFc Windows.p æD PROCEDURE ValidRgn(goodRgn: RgnHandle); INLINE $A929; æKY BeginUpdate æT Function æFc Windows.p æD PROCEDURE BeginUpdate(theWindow: WindowPtr); INLINE $A922; æKY EndUpdate æT Function æFc Windows.p æD PROCEDURE EndUpdate(theWindow: WindowPtr); INLINE $A923; æKY SetWRefCon æT Function æFc Windows.p æD PROCEDURE SetWRefCon(theWindow: WindowPtr;data: LONGINT); INLINE $A918; æKY GetWRefCon æT Function æFc Windows.p æD FUNCTION GetWRefCon(theWindow: WindowPtr): LONGINT; INLINE $A917; æKY SetWindowPic æT Function æFc Windows.p æD PROCEDURE SetWindowPic(theWindow: WindowPtr;pic: PicHandle); INLINE $A92E; æKY GetWindowPic æT Function æFc Windows.p æD FUNCTION GetWindowPic(theWindow: WindowPtr): PicHandle; INLINE $A92F; æKY CheckUpdate æT Function æFc Windows.p æD FUNCTION CheckUpdate(VAR theEvent: EventRecord): BOOLEAN; INLINE $A911; æKY ClipAbove æT Function æFc Windows.p æD PROCEDURE ClipAbove(window: WindowPeek); INLINE $A90B; æKY SaveOld æT Function æFc Windows.p æD PROCEDURE SaveOld(window: WindowPeek); INLINE $A90E; æKY DrawNew æT Function æFc Windows.p æD PROCEDURE DrawNew(window: WindowPeek;update: BOOLEAN); INLINE $A90F; æKY PaintOne æT Function æFc Windows.p æD PROCEDURE PaintOne(window: WindowPeek;clobberedRgn: RgnHandle); INLINE $A90C; æKY PaintBehind æT Function æFc Windows.p æD PROCEDURE PaintBehind(startWindow: WindowPeek;clobberedRgn: RgnHandle); INLINE $A90D; æKY CalcVis æT Function æFc Windows.p æD PROCEDURE CalcVis(window: WindowPeek); INLINE $A909; æKY CalcVisBehind æT Function æFc Windows.p æD PROCEDURE CalcVisBehind(startWindow: WindowPeek;clobberedRgn: RgnHandle); INLINE $A90A; æKY GrowWindow æT Function æFc Windows.p æD FUNCTION GrowWindow(theWindow: WindowPtr;startPt: Point;bBox: Rect): LONGINT; INLINE $A92B; æKY FindWindow æT Function æFc Windows.p æD FUNCTION FindWindow(thePoint: Point;VAR theWindow: WindowPtr): INTEGER; INLINE $A92C; æKY PinRect æT Function æFc Windows.p æD FUNCTION PinRect(theRect: Rect;thePt: Point): LONGINT; INLINE $A94E; æKY DragGrayRgn æT Function æFc Windows.p æD FUNCTION DragGrayRgn(theRgn: RgnHandle;startPt: Point;boundsRect: Rect; slopRect: Rect;axis: INTEGER;actionProc: ProcPtr): LONGINT; INLINE $A905; æKY TrackBox æT Function æFc Windows.p æD FUNCTION TrackBox(theWindow: WindowPtr;thePt: Point;partCode: INTEGER): BOOLEAN; INLINE $A83B; æKY GetCWMgrPort æT Function æFc Windows.p æD PROCEDURE GetCWMgrPort(VAR wMgrCPort: CGrafPtr); INLINE $AA48; æKY SetWinColor æT Function æFc Windows.p æD PROCEDURE SetWinColor(theWindow: WindowPtr;newColorTable: WCTabHandle); INLINE $AA41; æKY GetAuxWin æT Function æFc Windows.p æD FUNCTION GetAuxWin(theWindow: WindowPtr;VAR awHndl: AuxWinHandle): BOOLEAN; INLINE $AA42; æKY SetDeskCPat æT Function æFc Windows.p æD PROCEDURE SetDeskCPat(deskPixPat: PixPatHandle); INLINE $AA47; æKY NewCWindow æT Function æFc Windows.p æD FUNCTION NewCWindow(wStorage: Ptr;boundsRect: Rect;title: Str255;visible: BOOLEAN; procID: INTEGER;behind: WindowPtr;goAwayFlag: BOOLEAN;refCon: LONGINT): WindowPtr; INLINE $AA45; æKY GetNewCWindow æT Function æFc Windows.p æD FUNCTION GetNewCWindow(windowID: INTEGER;wStorage: Ptr;behind: WindowPtr): WindowPtr; INLINE $AA46; æKY GetWVariant æT Function æFc Windows.p æD FUNCTION GetWVariant(theWindow: WindowPtr): INTEGER; INLINE $A80A; æKY GetGrayRgn æT Function æFc Windows.p æD FUNCTION GetGrayRgn: RgnHandle; INLINE $2EB8,$09EE; æKY SetWTitle æT Function æFc Windows.p æD PROCEDURE SetWTitle(theWindow: WindowPtr;title: Str255); INLINE $A91A; æKY TrackGoAway æT Function æFc Windows.p æD FUNCTION TrackGoAway(theWindow: WindowPtr;thePt: Point): BOOLEAN; INLINE $A91E; æKY DragWindow æT Function æFc Windows.p æD PROCEDURE DragWindow(theWindow: WindowPtr;startPt: Point;boundsRect: Rect); INLINE $A925;